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CHAPTER  I:   INTRODUCTION 

Electron  capture  has  been  a  subject  of  interest  for  both  experimen- 
talists and  theoreticians  in  recent  years.   The  transfer  of  an  electron 
from  the  bound  state  of  one  system  to  the  bound  state  of  another  is  of 
fundamental  interest;  it  is  the  very  basis  of  many  chemical  processes. 
An  understanding  of  charge  exchange  is  needed  in  order  to  explain  the 
bulk  behavior  of  plasmas  in  thermonuclear  reactions.   It  is  also  an  im- 
portant inelastic  process  occurring  in  ion-atom  collisions. 

Along  with  the  widespread  use  of  tandem  Van  de  Graaff  accelerators 
in  recent  years,  ion-atom  collisions  have  been  investigated  by  experimen- 
talists over  a  spectrum  of  projectile  velocities  and  charge  states.   In 
a  violent  ion-atom  collision  electrons  in  both  the  target  and  projectile 
can  undergo  a  variety  of  single  or  multiple  events.   These  processes  are 
generally  classified  as  excitation,  ionization,  or  charge  transfer.   To 

illustrate  this  point  Figs.  I. la  and  I . lb  show  the  K-shell  x-ray  spectra 

4+ 
of  fluorine  ions  resulting  from  the  bombardment  of  neutral  helium  by  ? 

and  F°T,  respectively,  at  a  projectile  energy  of  15  Mev.   In  addition 
to  single  excitation  and  ionization  events  rig.  I. la  displays  prominent 
features  at  higher  x-ray  energies  which  are  the  result  of  multiple  ioni- 
zation.  Fig.  I. lb  exhibits  peaks  due  to  single  excitation  similar  to 
those  of  Fig.  I. la,  as  well  as  structure  from  excited  states  of  F 
formed  during  the  collision  by  the  transfer  of  a  target  electron  to  the 
proj  ectile. 


Figure  1.1:    X-ray  spectra  resulting  from  the  bombardment  of 

4+  8+ 

helium  by  (a),  F   and  (b) ,  F   at  an  incident 

energy  of  15  Me%r.   The  data  are  from  the  work 

of  Richard,  et.  al .  . 
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Direct  Coulomb  ionization  is  known  to  be  the  primary  mechanism  for 
inner  shell  vacancy  production  in  targets  bombarded  by  lighter  ions.   As 
the  nuclear  charge  of  the  projectile  increases,  however,  the  electron 
capture  mechanism  is  found  to  be  important  as  well.   Fig.  1.2  shows  the 

Cu  K  x-ray  production  cross  section  as  a  function  of  projectile  atomic 

2 

number  for  velocities  corresponding  to  1.71  Mev/amu.   Two  types  of  pro- 
jectiles are  used,  one  with  and  one  without  K  shell  vacancies.   The  K  x- 
rays  in  the  target  follow  as  the  result  of  vacancies  created  by  excita- 
tion, ionization,  or  capture  of  a  Cu  K  shell  electron.   The  contribution 
from  each  of  these  mechanisms  to  the  total  production  of  target  K  vacan- 
cies is  approximately  the  same  for  both  types  of  projectiles  with  the  ex- 
ception of  the  K-K  capture  process.   The  latter  can  occur  only  if  the  im- 
pinging ion  has  a  EC  vacancy.   As  the  collision  becomes  more  symmetric, 
the  K-K  transfer  process  becomes  more  important  to  the  production  of  tar- 
get K  vacancies. 

Over  the  years  various  theoretical  models  have  been  proposed  to  ex- 
plain vacancy  production  in  ion-atom  collisions.   The  electron  promotion 
model  of  Fano  and  Lichten"  has  been  very  successful  in  providing  a  quali- 
tative description  for  collision  velocities  which  are  much  less  than  the 

characteristic  orbital  velocity  of  the  electron  under  observation.   This 

4 
theory  has  recently  been  put  in  quantitative  form  by  Briggs  and  Macek. 

The  First  Born  theory  has  been  adequate  to  describe  the  excitation  and 
ionization  mechanisms  of  asymmetric  systems  at  higher  collision  veloci- 
ties.  A  description  of  the  charge  transfer  mechanism,  however,  is  much 

i   5,6,7 
more  complex . 


Figure  1.2:    Cu  K  x-ray  production  as  a  function  of  projectile 
charge  at  projectile  velocities  corresponding  to 
1.71  Mev/amu.   As  the  atomic  number  increases,  the 
data  exhibit  a  pronounced  distinction  between  pro- 
jectiles with  and  without  K  shell  vacancies.   The 

2 
experimental  points  are  from  Gardner,  et.  al.  . 
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Like  ionization  and  excitation,  the  charge  transfer  process  was  ori- 
ginally described  by  the  First  Born  Approximation.   From  the  beginning 
questions  arose  concerning  the  presence  of  an  internuclear  interaction  in 
the  electronic  transition  amplitude.   It  was  argued  that  an  interaction  be- 
tween the  colliding  nuclei  could  not  directly  affect  an  electronic  transi- 
tion except  to  deflect  the  projectile.   This  is  the  reasoning  which  led  to 

8  9 

the  Oppenheimer,  Brinkman,  and  Kramers  (OBK)  Approximation.   Other  authors, 

however,  preferred  to  retain  the  internuclear  term.   Bates  and  Dalgarno 
argued  that,  in  some  way,  it  compensated  for  the  nonorthogonality  between 
the  initial  and  final  state  wavefunctions.  (The  appearance  of  this  term  can 
be  traced  to  the  fact  that  this  nonorthogonality  was  not  formally  recog- 
nized.)  Jackson  and  Schiff  (JS)  x  believed  that  retaining  the  internuclear 
interaction  improved  the  convergence  of  the  Born  series.   The  JS  method  ap- 
peared to  be  successful  for  the  simple  transfer  process 

P  +  H(ls)   -  H(ls)   +  P  1.1 

while  the  OBK  results  were  an  order  cf  magnitude  too  high.   Despite  its 

success  for  K-K  capture  by  protons  on  hydrogen,  the  straightforward  gen- 
ii 12  13 
eralization  of  the  JS  method  to  arbitrary  systems  again  failed.  ' 

14 
In  1953  D.  R.  Bates  reformulated  the  electron  transfer  problem. 

Whereas  the  First  Born  theory  solved  the  time  dependent  Schro'dinger  equa- 
tion by  means  of  a  perturbation  expansion,  Bates  employed  a  truncated 
eigenfunction  expansion  to  solve  the  time  dependent  Schro'dinger  equation. 
Unlike  the  various  Born  formulations,  Bates'  Two  State  Atomic  Expansion 


(TSAE)  method  took  formal  cognizance  of  the  nonorthogonality  between  the 
initial  and  final  states  of  a  captured  electron.   The  resulting  expres- 
sion for  the  capture  probability  is  easily  shown  to  be  independent  of  any 
internuclear  interaction.   Thus,  the  difficulty  formerly  associated  with 
this  term  was  resolved.   When  minimal  approximations  are  made,  the  TSAE 
expression  is  equivalent  to  the  Distorted  Wave  3orn  Approximation  (DWBA) 
of  Sassel  and  Gerjuoy.   The  TSAE  results  simulate  the  JS  and  03K  expres- 
sions when  further  approximations  are  made.   Results  of  the  OBK,  the  JS , 
and  the  TSAE  methods  are  compared  with  data  in  Eig.  1.3  for  K-K  capture 

by  fast  protons  incident  on  atomic  hydrogen.   The  two  curves,  labeled  A 

16 
and  3,  are  results  or  the  OBK  and  JS   methods  respectively.   For  this 

17 
case  the  TSAE   and  JS  results  are  indistinguishable  to    the  scale  drawn. 

In  this  work  the  TSAE  method  has  been  generalized  to   study  single 

electron  transfer  in  mul tielectron  ion-atom  collisions.   The  muitielectron 

systems  are  described  within  the  independent  particle  approximation  in 

order  to  avoid  undue  mathematical  complications.   Eor  collision  velocities 

of  interest  the  motion  of  the  nuclei  can  be  treated  within  the  impact 

parameter  approximation.   This  is  a  semi-classical  method  in  which  the 

nuclear  motion  is  treated  classically  and  the  electronic  motion,  quantum 

mechanically.   The  projectile  is  deflected  very  little  by  the  target  at 

these  velocities;  thus  straight  line  trajectories  are  adopted. 

-   ,  .      20 
i  he  earlier  vor.<  or  this  type   generaxized  the  TSAE  method  to  trans- 

rer  processes  involving  mcltielectron  systems  and  was  aoolied  to  x-K  cap- 
ture by   rast  protons  en  carbon,  nitrogen,  rxygen,  neon,  and  argon  tarrets . 
Because  X-shell  electronic  motion  is  dominated  by  the  influence  of  the 


Figure  1.3:    The  total  cross  section  for  electron  capture  by 
protons  from  atomic  hydrogen.   Curve  A  results 
from  the  3rinkman-Kramers  approximation;  curve  B, 
the  Two  State  and  the  Born  approximation.   The 
latter  two  are  indistinguishable  to  the  scale 
shown  and  are  drawn  as  one.   Experimental  data  are 
from  refs.  no.  IS  and  19. 
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nucleus  rather  than  the  aggregate  influence  of  the  passive  electrons, 
it  was  reasoned  that  a  screened  hydrogenic  wavefunction  and  potential 
would  give  an  adequate  description  of  the  multielectron  targets.   Results 
of  these  calculations  agreed  reasonably  well  with  experimental  data. 

As  opposed  to  the  description  of  inner  shell  capture  processes,  a 
description  of  outer  shel]  capture  requires  a  more  complex  atomic  model. 
Whereas  a  K-shell  electron's  interaction  with  the  nucleus  is  much 
stronger  than  its  interaction  with  the  other  electrons,  the  influence 
of  neighboring  electrons  on  an  outer  shell  electron  is  comparable  to 
that  of  the  nucleus.   In  this  work  it  was  assumed  that  the  most  impor- 
tant effect  of  the  passive  electrons  on  the  electron  under  observation 

was  to  provide  screening  of  the  nuclear  potential.   This  screening, 

21 
described  by  a  Hennan-Skillman  screening  function,   enabled  a  study  of 

transfer  from  outer  shells.  Comparison  with  earlier  K-K  calculations  was 
made  as  well  in  order  to  verify  the  validity  of  the  simple  atomic  model 
used  to  describe  inner  shell  capture  processes. 

In  Chapter  II  the  details  of  the  TSAE  method  are  given.   Chapter  III 
describes  the  numerical  techniques  employed  in  this  work  to  perform  the 
calculations.   A  discussion  of  the  results  is  given  in  Chapter  IV  and 
Chapter  V  summarizes  the  work.   Appendix  I  contains  the  derivations  of 
the  relevant  formulas.   The  computer  coding  written  to  perform  the  cal- 
culations is  listed  in  Appendix  II  and  the  publication  connected  with 
this  work  is  given  in  Appendix  III.   Atomic  units  will  be  used. 


11 


CHAPTER  II:   DESCRIPTION  OF  THE  TSAE  METHOD 

In  this  study  the  single  electron  transfer  problem  is  treated 
within  the  independent  particle  approximation.   Only  one  electron  is 
considered  active.   The  presence  of  the  passive  electrons  is  acknow- 
ledged through  the  screening  of  the  nuclear  potential. 

A.  Derivation  of  the  Coupled  Equations.  In  the  impact  parameter 
approximation  the  electronic  wavefunctiop  satisfies  the  tine  dependent 
Schrodinger  equation 

i  |j  Kr.t)  -Hit)   ?(r.,t)  II. 1 

where H  (t)  is  assumed  to  have  the  form 

H  (t)  -  -1/2  72  +  VA(rA)  +  V3(rE)  II. 2 

The   time  dependence  of    the  Haniltonian  occurs    through    the   change  of    the 
internuclear   distance   as    the    collision   progresses.      r.i.r_)    connects    the 
electron   to    the    target    (projectile/    as    shown    in  Fig.    II. 1.      7,(7    )    is    the 
potential   experienced   by   the   electron  at   infinite   internuclear   separation 
when   it    is   bound    to    nucleus   A(B) ■ 

Eon.    II. I   can  be    conveniently    solved   by    the  method   of    eigenfunc  tier- 
expansions.      The   type  of   basis    set    to   be   chosen    in  a   truncated   expansion 
depends   on    the    ratio  of    the   projectile's    velocity    to    the    characteristic 
orbital  velocity   of    the   electron   under    consideration.      When    this    ratio    is 
small,    a   molecular   basis    set   is    appropriate.      Atonic    basis    sets    are    used 
tor  moderate    to   high   collision   velocities.      In   describing    the    charge   cap- 


"Figure  II. 1:    The  coordinate  system  used  to  calculate  electron 
capture  probabilities  within  the  impact  parameter 
formulation,   p  is  the  impact  parameter,  R  is  the 
internuclear  line  joining  the  target,  A,  to  the 
projectile,  B,  and  r,(r_)  connects  nucleus  A(B) 

A    D 

with  the  electron,   r  is  the  position  vector  of 
the  electron  with  respect  to  the  origin  of  this 
coordinate  system,  the  mid-point  of  the  inter- 
nuclear axis. 
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ture  process,  it  is  convenient  to  use  an  expansion  centered  about  both 
the  target  and  the  projectile.   This  insures  that  each  term  in  the  ex- 
pansion will  be  an  eigenfunction  of  H    in  the  limit  of  infinite  inter- 
nuclear  separation.   With  this  in  mind,  the  electronic  wavefunction  can 
be  written 

.  A 
*(r,  t)  -  I     a.  (t)  iKCrJ  e^V 

i  11.3 

+  I      b  (t)  iijCrg)  e"iejt 
J 

Each  i|).  (1J1.)  is  a  product  of  a  stationary  state  wavefunction  centered 
about  nucleus  A(B)  and  a  'plane-wave-like'  phase  factor.   These  phase 
factors,  necessary  to  insure  translational  invariance  of  the  system,  re- 
present the  momentum  that  the  electron  has  by  virtue  of  being  bound  to 
one  or  the  other  of  the  two  nuclei  at  infinite  internuciear  separation. 

V^  =  *i(rA}  el  [f  '  X   "  'l/2(f)  t] 
♦jCrj)  -  *j(rB)  e  x  [f  •  r  +  1/2 (|)  t] 

where  v  is  the  collision  velocity  and  r,  the  position  of  the  electron 
with  respect  to  the  origin,  (the  midpoint  of  the  internuciear  axis,  R, 
as  shown  in  Fig.  II. 1). 

$    (r  )  and  £.(r  )  are  stationary  eigenstates  satisfying 

£-1/27a  +  W  -  #  »A>  ■  ° 

[-1/2^2  +  VB(rB)  -  «»]  *.(rB)  =0 
In  the  Two  State  Approximation  only  one  term  from  each  sum  in  Eqn.  II. 3 


I  5 


is  retained,  those  representing  the  initial  and  final  state  of  a  cap- 
tured electron.   (Henceforth,  the  subscripts  i  and  j  will  be  replaced 
by  A  and  B.)   This  truncated  version  of  the  wavef unction  is  substituted 
into  the  Schrodinger  equation,  II. 1.   The  result  is 

i[a  *A  e"1^  +  b  *B  e"1^] 

II. 6 
-  a  VB  *A  e"1^  +  b  VA  *B  e-iEBC 

*  is  t      *  le  t 
The  overlap  of  this  equation  is  taken  with  'Ke     A  and  ¥  e  B   ,  re- 
spectively, resulting  in  the  final  set  of  coupled  equations 


1(a  +  SABb)  =  HAAa  *  HABb 


i(SBAa+b)  =H3Aa+HBBb, 


II. 7 


where  S,„  =  S„ .  is  the  overlap  between  the  initial  and  final  states 
AB    BA 

c       tA-r    a*  i.  J-(y    •    r  +  wt) 

SAB  =  /dT  'A  *B  e  II. 8 

and  »  »  e.    -   £      .   The  diagonal  and  off-diagonal  elements  of  H  are  the 
direct  and  exchange  elements  of  the  interaction  matrix. 


H,,  =  J"di  $,  V„  a>, 
AA         ABA 


HBB  =   /dT  *B  VA  *B 


„      .  ,   *  ,,      +i(v  •  r  +  wt) 
HAB  =  jdT  *A  VA  *B  e 


.,     „      -i(v  •  r  +  wt) 
Jdx  ^   V3  *A  e 


II. 9 


The  integrations  in  the  above  matrix  elements  are  over  the  electronic 

16 


coordinates.   Eqns .  II. 7  can  be  further  simplified  by  the  unitary 
transformation 


a(t)  =  A(t)  exp(-iftdt'a(t-))  II. 10 


b(t)  =  B(t)  exp(-i/tdt-S(t')) 


where 

~  hAA  "  °AB  nBA  11.11 


(1-|S|2)  a(t)  =HA,  -  S._H. 


(1-!S|2)  B(t)  =HBB-SBAHAJ 


The  resulting  set  of  equations  now  read 


where 


i  A(t)  -  XAfi  B(t) 


i  B(t)  =  XgA  A(t) 


f1-!3!2)  XAB  "  (*AB  "  SABHBB)e+1' 


^-|S|2)  XBA  -  (HSA  -  S^le"15 


11.12 


11.13 


and 

£(t)  =  .Tdt'  [a(t')  -  B(t')]  II. 14 

Eqns.  11.11  are  to  be  solved  subject  to  the  initial  conditions 

A(-»)  -  1 

11.15 
B(— )  -  0 

The   total   capture  cross   section  at   projectile   energy,    &,    is  given  by 

0(E)    =   2ir  f°  odp    P(p)  11.16 
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where  p  is  the  impact  parameter  and  P,  the  probability  for  single  elec- 
tron transfer.   The  functional  form  of  P  depends  upon  the  number  of 
equivalent  electrons  available  for  capture.   For  a  one  electron  target 

P(p)  =  p(p)  =  |3(»)[2  11.17 

In  multielectron  targets  there  are  two  equivalent  electrons  for  every 
set  of  principal,  orbital,  and  magnetic  quantum  numbers,   p  is  the  prob- 
ability that  an  electron  is  transferred  and  1-p  is  the  probability  that 
it  is  not.   Therefore,  the  probability  for  only  one  of  the  two  equiva- 
lent electrons  to  be  captured  is  given  by 

P(p)  =  2p(l-p)  H.13 

where   the   factor  of   two   arises  because   there   are   two   possible  arrange- 
ments  for   a   single  electron   to   be   transferred. 

3.      Comparison  of    Che   TSAE   Expression  With  Various   3orn  Theories. 
Eons.    11.12   are   exact  within    the   TSAE    approximation.      Vher.    the    capture 
probability    is    expected   to   be   small,    A(t)    can   be   set    equal    to    one    cor 
all    t  and  3  (»    obtained    by    first   order   perturbation 

B(»)    -jfdt'   Xg^O  11.19 

where  X_,(t)    can  be  written  explicitly  as  TI   20 

X3A   *   1   -      S    ^  -^    »B    {'3"    <:A    '.!V^« 

This    expression    for    the   capture   amplitude,    unlike   other   3om    theories, 
is    ir.deoer.den-   of   any    tncemuclear   -arm  or   other  constant   potential   adie; 
to    the   original   Hamiltonian,    Eqn.    II. 2.      The    addi-ion  of   an .internuclear 
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term  would  have  the  effect  of  replacing  V„  in  the  previous  expression 

o 

by  V  +  V(R) ,  where  V(R)  is  the  internuclear  interaction.  The  inner 
bracketed  terms  in  Eqn,  11.20  would  become 

VB  +  V(R)  "<*A|VB  +  V(R)[*A> 

=  vB  +  v(r)  -<*A|vB|+A>  -<*J*A>  V(R)  n-21 

as   before.      This   stems   from  the  fact   that   formal  recognition  has  been 
taken  of    the  nonzero   overlap  between   the   initial  and   final   state  wave- 
functions  at  small    internuclear   separation. 

When   6    is   neglected  and    the  denominator  of   Eqn.    11.20   set   equal 
to  unity,    the  TSAE   expression   is    equivalent    to    the  Distorted  Wave  Born 
Approximation   (DWBA)    of   Bassel   and   Gerjuoy.      Both  are   characterized  by 
a  potential   term,  < a    | V    | $   >    ,    in  addition   to    the  projectile-electron 

interaction,    V    .      However,    it  must   be  recognized   that   the  physical   in- 
B 

terpretation  of    this   term   is    entirely  different.      In   the  DWBA,    Che   term 

<$     V     l>  arises   because   the  distortion  of    the  projectile   is    included 
ABA 

in  the  formalism.      In  Eqn.    11.20   this   term  arises   from  proper   treatment 

of    the  nonorthogonality  between   the   initial   and   final   state  wavefunc- 

tion.      If    the  nonorthogonality    is    ignored,    Eqn.    11.20  can  be  justified 

by    identifying    the   interaction   for   charge   transfer   as     V     -  <  j>     V    !$   >. 

3  A      B '    A 

This   fictitious   potential    is    sometimes    called   the    '   Bates   -  Bern    '    po- 
tential.     Eqn.    11.20   can  be  compared   to   other   Born   theories  as  well. 
For    the  K-K  capture  process  of   protons   on   hydrogen  w  -   5   =   0.      When  the 
denominator   of  Eqn.    11.20    is  approximated   by  unity  and     "^  $A  !  VtJ  ^a1*   ^7 
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its  large  R  limit,    -1/R,    Eqns.    11.19  and   11.20   reduce   to    the  result 
of   Jackson  and  Schiff.      If     <  'f1.  i  V    1 4>  >      is   set   equal   to   zero    the  OBK 
expression   is   recovered. 
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CHAPTER  III:   NUMERICAL  METHOD 

In  order  to  solve  Eqns.  11.12  within  the  independent  electron  ap- 
proximation an  appropriate  local  potential  for  the  active  electron  must 
be  obtained,  the  matrix  elements  defined  by  Eqns.  II. 9  must  be  evaluated, 
and  the  coupled  equations  must  be  numerically  integrated.   Sections  III. A, 
III.B,  and  III.C  describe  the  techniques  employed  in  this  work  to  do  each 
step. 

A.   Potential  and  Wavef unction.   A  local  potential  in  a  multielec- 
tron  atom  can  be  expressed  as 

V(r)  «  -  |  U(r)  III.l 

where   the  screening   function,   U(r)    has    the   limiting   forms 

U(r)   +   1  r  ->  0 

III. 2 
U(r)  ■+   HZ         r  ■*  r, 


r  is  roughly  the  size  of  the  atom  and  (1-1)  is  its  charge.   In  this 
0       "     ' 

«ork  the  potential  and  subsequent  wavefunctions  were  obtained  by  fitting 

21 
the  Herman-Skillman   screening  function  to  the  form 

Z  U(r)  -  I  +  (Z  -  I)  p(r)  e"Xvr  III. 3 


where 

2       3 

p(r)  =  1  +  c,  r  +  c,  r'  +  Cj  t 

This  particular  form  was  chosen  for  its  correct  asymptotic  behavior  and 
its  compatibility  to  the  techniques  employed  for  the  evaluation  of  the 

21 


matrix  elements. 

The  screening  function  drops  rapidly  from  1  at  the  origin  and 
smooths  out  to  I/Z  as  r  approaches  the  size  of  the  atom.   These  charac- 
teristics can  be  adequately  reproduced  if  the  parameter  X      and  the  co- 
efficients c-  are  well  chosen.   A  proper  choice  for  X   insures  the  sharp 
<L  v 

decline  of  the  screening  function  in  the  small  r  region.   The  c-  are 

chosen  to  fit  the  intermediate  region  of  r. 

In  order  to  determine  Xv   the  r  -»  0  limit  of  Eqn.  III. 3  is  con- 
sidered.  In  this  limit  p  •+  1  and  the  resulting  expression  can  be  re- 
arranged to  give 

-  X      r  -£H  \^~\  III. 4 

v        '  Z  -  I 

Xv   is  obtained  by  calculating  the  slope  of  the  right  hand  side  of  the 
above  equation.   Eqn.  III. 3  is  then  linearized  and  the  coefficients  of 
the  polynomial  determined  by  the  least  squares  fitting  procedure. 

The  angular  dependence  of  the  wavefunctions  for  a  central  potential 
such  as  Eqn.  III.l  are  the  spherical  harmonics,  Y,  (0) ,   The  radial  de- 
pendence  can  be  conveniently  expressed  as  a  sum  of  Slater  type  orbitals. 

where  the  parameters  n •  and  a .  sere  chosen  from  the  work  of  Clementi  and 

.22 
Roetti.   The  remaining  parameters,  A  -,  were  left  free  to  absorb  any 

necessary  adjustments.   These,  as  well  as  the  eiganenergies  were  obtained 

by  diagonalization  of  the  radial  Schrodinger  Equation 

\  M      V(r)  =  V  Facfr)  UI-6 
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The  details  of  this  derivation  are  given  in  Appendix  I. A. 

Fitting  the  Herman-Skillman  screening  function  in  this  manner 
gives  energy  eigenvalues  which  are  very  close  to  both  the  Hartree-Fock 
and  original  Herman-Skillman  numbers.   As  a  typical  example  Table  III.l 
lists  the  orbital  energies  and  Table  III. 2,  the  wavefunction  parameters 
for  the  bound  states  of  neutral  argon.   A  comparison  is  made  between 
the  results  of  this  method  and  the  afore-mentioned  works.   As  can  be 
seen,  the  agreement  between  the  orbital  energies  is  very  good  for  all 
values  of  n   and  £.   A  plotted  comparison  of  the  original  and  fitted 
Herman-Skillman  wavefunctions  reveals  few  discernible  differences. 
The  coding  written  to  perform  these  calculations  is  listed  in  Appendix 
II. A. 

B.   Matrix  Elements.   The  two  centered  matrix  elements  in  Eqns .  II. 9 
can  be  conveniently  evaluated  using  prolate  spheriodal  coordinates  *  ,  'J  , 
and  4>  defined  by 

r.  +  r„ 


-  A 


III. 7 


R  R 

4  is  the  azimuthal  angle.   These  coordinates  have  ranges 

1  <  \   <  .       -1  <_  y  <_   1       0  <  *  <_   2ir       III. 8 

3    2     2 
and  volume  element  dT  =  R  /8(a~  -  y  )  dAdud*.   Other  quantities  of  in- 
terest are 


r  cos  9  -  R/2  (\w  +  1)     r  sin  iy   -  R/2  /(X  -1)  (1-u  )    HI.9 
v  •  f  =  l/2v2tAu  +  vc/2   "TX'-D  (1-u^) 


2  3 


where  the  subscript  y  represents  either  A  or  B.   The  upper  signs  are 

taken  for  A  and  the  lower  signs,  for  B.   These  derivations  can  be  found 

5 
in  the  monograph  by  McDowell  and  Coleman. 

The  diagonal  matrix  elements  appearing  in  Eqns .  II. 9  can  be  evalu- 
ated analytically.   The  integration  over  4  normalizes  to  unity.   The 
two  remaining  integrals  are  a  linear  combination  of  products  of  incom- 
plete gamma  functions.   As  an  example,  the  diagonal  matrix  elements  for 
the  K-K  transfer  of  a  hydrogen  electron  to  a  proton  are 

HAA  =  HBB  "  -R2/2  (fl80  +  «lf0> 
where  III. 10 

gn  -  fix   *■  .-« 

fn  "  £S  »" 

The  off-diagnonal  terms  are  much  more  complex.   In  spite  of  the  dif- 
ficulties which  arise  because  of  the  factor  e—     '    ,  two  of  the  three 
integrals  can  be  done  analytically.   The  integration  over  4  is  done  with 
the  help  of  Bessel's  integral 

„  ; ,  I  ,     /  N    r2ir,.    i[acos  4  +  m  *1        TT  , . 
^      '  Ji   !  (a)  =  ."  do  e  L  III.  11 

I  w-  \  o 

a  23 

and,  over  u 

2^"%(T)  P""  (cos  X) 

1  I  III. 12 


/Jdu  Jm(T  sin  x  /I^Tp;;  (u)  *»   T  C°S  X 


24 


where  jp    is  the  spherical  Bessel  function  and  P  '  is  the  associated 
Legendre  polynomial.   The  integration  over  X  is  done  by  making  a  simple 
change  of  variable  and  using  Gauss-Laguerre  quadrature.   For  the  pro- 
cess mentioned  above  the  off-diagonal  matrix  elements  are 


SAB=SBA  =*3/2-f  dX.(A)e-RX 


HA„  -  HDA   -  -R2  l"   dX   h(\)e-RX 


III. 13 


AB   "BA        i 


where 


,j(A)  =  [,\  -1/3]  jo(T)  +  2/3  /2(T)  P2  (cos  x) 
h(X)    =  j'o(T)  -  I  jxm    Pj_  (cos  X) 

T  -  v/2  [A2R2  -  p2]1/2   cos  x  -  Xv  t   [X2R2  -  p2]"1/2 

(S,  by  definition,  is  Hermitian.   In  general,  however,  H  is  neither 
symmetric  nor  Hermitian.) 

An  additional  complexity  is  manifested  for  processes  involving  non- 
spherical  wavefunctions .   The  Schrodinger  Equation,  II. 1,  is  written  in 
terms  of  the  laboratory  coordinates.   In  the  lab  system,  the  Z-axis  is 
defined  to  be  in  the  direction  of  the  projectile's  incident  velocity. 
The  matrix  elements,  however,  are  derived  in  a  coordinate  system  which 
defines  the  Z-axis  to  be  along  the  internuclear  line,  R,  as  shown  in 
Fig.  II. 1.   Since  R  changes  angle  continuously  with  respect  to  the  pro- 
jectile's velocity  vector  during  the  course  of  the  collision,  the  two  co- 
ordinate systems  rotate  with  respect  to  each  other  as  shown  in  Fig.  III.l. 
This  rotation  can  be  handled  in  one  of  two  ways;  either  the  coordinate 
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Figure  III.l:    The  rotation  of  the  laboratory  coordinates  with 
respect  to  the  coordinate  system  used  to  perform 
the  calculations  as  shown  in  Figure  II. 1.   In 
this  illustration  sin  a  =  p/R  and  cos  a  =  vt/R. 
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system  or  the  wavefunctions  in  Eqns.  II. 1  can  undergo  a  rotational  trans- 
formation.  In  this  work  the  latter  method  has  been  chosen. 

Firstly,  the  stationary  state  part  of  the  wavefunctions  in  Eqn.  II . 6 
can  be  expressed  as 


Mr  )  =  G(r  )  F(x  ,y  ,z  ) 

Y   Y       Y     Y   Y   Y 


III. 14 


where  the  subscript  y  represents  either  A  or  B .   From  Fig.  III.l  it  is 
apparent  that 


III. 15 


Thus,  to  account  for  this  rotation  x  and  z   should  be  expressed  in  terms 

Y      Y 

of  x  and  z.   The  y  components  are  perpendicular  to  the  plane  of  scattering; 
thus,  they  do  not  contribute  to  the  capture  cross  section  and  need  not  be 
considered.   For  spherically  symmetric  states,  F  =  1  in  Eqn.  III. 14,  Ac- 
cordingly, capture  processes  involving  only  states  with  spherical  symmetry 
do  not  exhibit  the  effects  of  this  rotation  and  it  can  be  ignored. 

In  Appendix  I.B  matrix  elements  for  transfer  processes  of  the  form 


B   +  A(aA) 


J(n'£)  +  A 


III. 16 


have  been  derived.   Program  listings  for  the  specific  cases  of  .£  =  0  and 
1=1   are  given  in  Appendices  II. B  and  II. C. 

C.   Numerical  Integration  of  the  Coupled  Equations.   Eqns.  11.12 
are  solved  in  one  of  two  ways;  when  the  capture  probability  is  expected 
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to  be  less  than  1/10,  A(t)  can  be  set  equal  to  unity  and  the  solution 
found  by  repeated  iteration.   For  larger  capture  probabilities  the 
coupled  equations  are  integrated  directly  by  the  Gill-Runga-Kutta  meth- 
od.  The  coding  written  for  the  iterative  method  is  listed  in  Appen- 
dices II. B  and  II. C.   Appendix  II. B  includes  the  coding  used  for  the  di- 
rect integration  method. 
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CHAPTER  IV:   RESULTS 

The  Two  State  Atomic  Expansion  method  described  in  the  previous 
chapters  has  been  applied  to  the  study  of  electron  transfer  cross  sections 
in  ion-atom  collisions.   The  discussions  in  this  chapter  are  divided  into 
three  parts;  A,  gross  features  of  the  capture  cross  section  as  functions 
of  projectile  velocity;  3,.  the  sensitivity  of  the  calculations  to  the  type 
of  atonic  model  used;  and  C,  outer  shell  capture.   Comparison  of  the 
theoretical  results  with  experimental  data  is  presented  in  Sections  3 
and  C  . 

A.   Gross  Features  of  Electron  Transfer  Cross  Sections.   Massey's 
criterion  states  that  the  electron  capture  cross  section  peaks  at  pro- 
jectile velocities  approximately  equal  to  the  characteristic  orbital 
velocity  of  the  active  electron.   To  elucidate  this  point  Eqns.  11.12  are 
rewritten  in  slightlv  different  form 


i  A  '  m    Y     R 

"  '    "'A3 

IV.  1 

1  3  -  :Sa  A 


2 

[i  -  !s  2]x      ,   -dt  s*  [V    -  <^   iv  !*  >h  ^  '  ?  +  w<R>/v^ 

L  '          jAA3           G  A  L    A  3'    .V    3    -    3" 

[l   -  s:2]v       =    -d-  »*  [V     -  <o    'V    1 4   >]o    e'1^   *    r  +WW/V] 

1                   JABA        '  °  3  L    3  A1    3      A   J   A8 


and 


1 t      a         a 


5C 


UA  -£A  +  <*AlVV 

IV.  4 

0  -  e  +  <4  I V  !  4  > 
B    B     B  AI?B 

From  Eqns,  IV.  2   it  can  be  seer,  that  the  velocity  dependence  of  the 

coupling  matrix  elements,  X        and  X-.,  occurs  primarily  through  the  ex- 

AB       dA 

potential  factors,  e—  .  At  high  collision  energies  their 

magnitude  is  greatly  reduced  by  cancellation  in  the  integrand  due  to  os- 
cillation of  the  exponential,  e—  1^v     .   This  factor  is  responsible 
for  the  rapid  decrease  of  the  transfer  cross  section  with  increasing  pro- 
jectile velocity.   The  magnitude  of  X   (X.,.)  is  reduced  at  low  collision 

An       DA 

.   ■      .,,   .     ,  +  i(W(R)/v)    _  „,    _  . 

energies  througn  tae  oscillation  or  e—         .   The  cross  section  pea^c 

occurs  at  v    the  velocity  at  which  oscillations  from  the  two  terms  add 

destructively.   Taking  r-3.,  a  rough  estimate  can  be  made  for  v  . 

vQ  •  7--.J(R)/v0 

vQ  R  -<«A  -  eB)  R/vQ  IV. 5 


Fig.  IV. 4  illustrates  the  general  behavior  of  the  electron  transfer 
cross  section  as  a  function  of  projectile  energy  per  amu ,  (or  equivalent- 
ly,  projectile  velocity),  for  varying  types  of  colliding  systems.   For 
symmetrically  resonant  transfer  the  cross  section  does  not  peak:   it  ex- 
hibits a  monotonic  decrease  with  increasing  projectile  energy.   For  non- 
resonant  transfer  the  cross  section  peak  shifts  to  higher  collision  ve- 
locities with  decreasing  symmetry  of  the  system.   This  behavior  is  consis- 
tent with  Fqn.  17.5. 

The  high  velocity  damping  factor,  e—         ,  is  not  very  sensitive 
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Figure  IV. 1:    Gross  features  of  the  electron  capture  cross  sec- 
tion as  functions  of  projectile  energy  per  amu,  (or 
equivalently,  projectile  velocity) .   Resonantly 
symmetric  collisions  exhibit  a  monotonic  increase 
with  decreasing  energy  as  typified  by  the  upper- 
most curve.   As  the  colliding,  system  becomes  less 
symmetric,  the  peak,  of  the  capture  cross  section 

shifts  toward  the  energy  corresponding  to  v  /v  =1 
"7       r  p  e 

where  v  (v  )  is  the  velocity  of  the  projectile  (e~ 
lectron) . 
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to  the  type  of  atomic  model  used  in  the  description  of  the  multielectron 
atom.   As  can  be  seen  from  its  definition,  however,  the  low  velocity 
damping  factor,  e—      '    ,  is  extremely  model  dependent.   U  and  UR 
in  Eqn.  IV. 4  can,  in  fact,  be  identified  as  the  'potential  curves'  de- 
fined within  this  theory.   They  represent  the  distortion  of  the  electron 
cloud  in  the  initial  (final)  state  by  the  projectile  (target)  nucleus. 
In  anticipation  of  the  following  discussion,  therefore,  the  calculations 
can  be  expected  to  show  sensitivity  to  the  atomic  model  at  low  collision 
velocities. 

B.   Comparison  of  K-K  Results  Using  Different  Atomic  Models.   The 
TSAE  method  has  been  applied  to  the  description  of  K-K  capture  processes 
for  bare  projectiles  on  multielectron  targets.   The  potential  of  the  bare 
projectile  is  given  by  V  =  -Z  /r,.   Within  the  independent  electron  ap- 
proximation, the  target  potential  can  be  expressed  in  several  ways.   In 
the  early  work  of  Lin  et.  al.    a  screened  hydrogenic  potential, 
V,  "  -Z,/r    (where  Z  =  Z  -5/16),  was  used.   This  potential  includes  the 
mutual  screening  of  the  K  shell  electrons  and  the  corresponding  wavefunc- 
tion  is  known  to  represent  the  actual  Is  orbital  very  well.   However,  the 
screening  of  the  outer  electrons  is  not  acknowledged  by  this  treatment; 
tnus,  the  corresponding  energy,  e  =  -Z   /2,  is  quite  different  from  the 
experimental  value.   It  was  recognized  in  the  earlier  work  that  this  dis- 
crepancy would  not  arise  with  the  use  of  a  proper  multielectron  theory. 

Therefore,  experimental  K  shell  binding  energies  were  substituted  for  E  . 

A 

It  should  be  noted,  however,  that  by  choosing  £   and  V   inconsistently 
the  unitarity  condition  of  the  calculation  was  destroyed. 

To  ascertain  the  importance  of  these  approximations  on  the  capture 
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probability  a  comparison  between  this  work  and  the  earlier  one  is  made. 
The  Herman-Skillman  potential  differs  from  the  hydrogenic  potential  pri- 
marily by  its  inclusion  of  outer  as  well  as  inner  shell  screening.   In 
Fig.  IV. 2  the  hydrogenic,  (dashed  lines),  and  Herman-Skillman,  (solid 
lines),  potentials  for  neutral  argon  are  compared.  "The  differences  are 
most  significant  in  the  region  outside  the  K  shell  radius.   The  corre- 
sponding Is  wavefunction  for  each  potential  is  compared  in  Fig.  IV. 3. 
The  reason  for  the  apparent  agreement  between  the  wavefunctions  can  be 
attributed  to  the  approximately  hydrogenic  behavior  of  the  Herman-Skill- 
man potential  within  the  region  of  the  Is  amplitude. 

The  statement  was  made  in  Section  IV. A  that  discrepancies  between 
calculations  using  different  atomic  models  should  occur  at  low  collision 
velocities  due  to  the  increased  importance  of  the  factor,  e— 
By  considering  the  above  comments  and  the  VA  dependence  of  W(R) ,  it  can 
be  seen  that  these  discrepancies  are  caused  by  the  differing  behavior  of 
the  hydrogenic  and  Herman-Skillman  potentials.   Fig.  IV. 4  compares  the 

electron  transfer  cross  sections  calculated  in  the  two  models  for  two 

9+ 
widely  varying  systems,  P  4-  Ar  and  F   4-  Ar.   As  anticipated  in  the  com- 
ments at  the  end  of  Section  IV. A,  the  agreement  between  the  models  is  good 

in  the  high  energy  region.   At  low  collision  energies,  however,  signifi- 

94- 
cant  discrepancies  exist,  particularly  for  F   4-  Ar.   To  further  illus- 
trate this  point  the  calculated  values  of  the  transfer  cross  sections  in 
the  two  models  are  listed  in  Table  IV. 1.   Though  the  agreement  does  im- 
prove with  increasing  projectile  velocity,  the  disagreement  in  the  low 
energy  region  is  substantial. 

The  discrepancy  between  the  two  models  is  generally  small  for  very 
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Figure  IV. 2:    Comparison  of  the  screened  hydrogenic  and  Herman- 
Skillman  potentials  for  neutral  argon.   It  should 
be  noted  that  the  former  is  much  stronger  than 
the  latter,  particularly  in  the  large  r  region. 

Figure  IV. 3:     Comparison  of  the  screened  hydrogenic  and  Herman- 

Skillman  wavefunctions  of  argon.   (The  screened 

charge  is  taken  to  be  17.6875).   Unlike  their 

corresponding  potentials,  the  agreement  between 

the  wavefunctions  is  very  good.   The  K  shell 

radius,  r  ,  is  indicated. 
K. 
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Figure  IV. 4:     K-K  cross  sections  for  electron  transfer  as  functions. 

9+ 
of  collision  energy  for  F   +  Ar  and  P  +  Ar  calculated 

using  the  Herman-Skillman  and  hydrogenic  models, 
(v  is  the  collision  velocity  and  v  is  the  character- 
istic orbital  velocity  of  the  K  shell  electron.) 
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asymmetric  systems  such  as  P  +  Ar.   As  the  symmetry  of  the  system  in- 
creases, however,  the  differences  are  significant.   The  reason  for  this 

can  be  elucidated  by  considering  "Fig.  IV. 5.   The  potential  curves,  U. 

94- 
and  U_ ,  are  plotted  for  P  4-  Ar  and  F   4-  Ar  using  both  the  hydrogenic 

D 

and  Herman-Skillman  models.   The  discrepancies  between  the  models  is  much 

94- 
more  significant  for  F   4-  Ar  than  P  +  Ar.   This  is  due  to  the  increased 

importance  or"  terms  containing  V  for  the  former  system  than  the  latter. 

Table.  IV. 1  lists  theoretical  cross  sections  for  several  other  sys- 
tems along  with  experimental  data.   Though  the  Herman-Skillman  is  a  more 
realistic  potential,  these  results  do  not  show  improvement  with  experimen- 
tal measurements.   The  Herman-Skillman  calculations  were  done  under  the 
assumption  that  the  active  electron  experiences  the  potential  of  a  neutral 
target.   It  is  known  that  the  target  becomes  multiply  ionized  during  the 
course  of  the  collision.   Table  IV. 2  compares  several  Herman-Skillman  cal- 
culations for  F   4-  Ar   for  varying  values  of  n.   As  evidenced  by  these 
results,  the  capture  cross  section  does  not  exhibit  a  strong  dependence  on 
the  final  charge  state  of  the  target.   This  point  is  further  discussed  in 
Chapter  V. 

Though  it  is  important  to  use  a  more  realistic  model  for  more  sym- 
metric systems,  the  computer  time  involved  in  such  a  calculation  poses 
practical  difficulties.   It  therefore  remained  desirable  to  find  a  simpler 
way  to  give  an  adequate  description  of  the  multielectron  system.   As  evi- 
denced by  Figs.  IV. 2  and  IV. 3,  the  most  significant  difference  between  the 

two  models  occurs  in  the  behavior  of  the  multielectron  potential,  V,. 

r  '      A 

The   idea  was    therefore   proposed  of  using   a    'hybrid'    model-  a   screened  hy- 
drogenic wavefunction  with  a  Herman-Skillman  potential.    This   proved   to 


9+ 
Figure  IV. 5:     The  potential  curves  for  F   +  Ar  and  P  +  Ar  in 

the  Herman-Skillman  and  hydrogenic  models  at  an 

incident  energy  corresponding  to  v/v  =  1/2, 

K. 

U  is  indistinguishable  for  the  two  models  to 
the  scale  shown  and  are  drawn  as  one. 
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9+ 
be  quite  successful.   For  the  particular  case  of  F   +  Ar  at  a  colli- 
sion velocity  of  v  =  v „/2,  the  agreement  with  the  full  Herman-Skillman 
calculation  was  better  than  2%  and  the  computer  time  reduced  by  more 
than  80%.   In  view  of  these  considerations  it  is  clear  that  the  most 
practical  way  of  insuring  an  adequate  description  of  K-K  capture  pro- 
cesses involving  multielectron  atoms  is  to  use  a  screened  hydrogenic 
wavefunction,  (with  screened  charge  Z  =  Z-5/16) ,  and  a  Herman-Skillman 
description  of  the  potential. 

C.   Outer  Shell  Capture.   The  Herman-Skillman  model  provides  a  satis- 
factory description  of  the  potential  in  the  large  r  region  of  a  multi- 
electron  atom,  thus  enabling  a  study  of  electron  capture  from  outer  shells. 
Section  IV. C  discusses  charge  transfer  from  the  outermost  shells  of  neon, 
argon,  and  krypton  to  the  K  shell  of  hydrogen.   The  capture  cross  sections 
for  these  systems  can  be  expected  to  be  important  because  the  energy  de- 
fects between  the  initial  and  final  states  are  small. 

There  are  many  studies  of  this  type  for  low  collision  energies  which 
are  based  on  the  MO  theory.   Except  for  the  simplistic  OBK  method,   how- 
ever, there  are  no  theoretical  investigations  for  more  energetic  colli- 
sions.  The  assumptions  on  which  the  OBK  theory  is  based  are  invalid  for 
systems  such  as  these  because  the  capture  probabilities  are  not  small  and 
the  potential  experienced  by  an  outer  shell  electron  is  not  Coulombic. 
This  is  an  effort  to  describe  outer  shell  electron  transfer  in  which  more 
realistic  assumptions  are  made. 

It  was  emphasized  in  Section  IV. A  that  charge  transfer  cross  sec- 
tions are  sensitive  to  both  the  energy  defect  between  the  initial  and 
final  states  as  well  as  the  velocity  of  the  incomimg  projectile.   In  low 

43 


energy  collisions  between  protons  and  argon  atoms,  for  example,  the  cap- 
ture process  is  dominated  by  electron  transfer  from  the  Ar(3p)  to  the 
H(ls)  state.   Capture  to  excited  states  of  the  projectile  is  much  less 
important,  as  is  capture  from  more  tightly  bound  states  of  the  target, 
because  the  energy  defects  are  larger.   In  faster  collisions,  however, 
outer  shell  electrons  have  very  little  time  to  react  to  the  field  of  the 
impinging  ion;  thus,  the  more  energetic  L  and  K  shell  electrons  are  trans- 
ferred.  3ecause  the  energy  defects  are  larger  for  these  processes,  the 
magnitude  of  the  total  capture  cross  sections  are  reduced. 

Table  IV. 3  lists  the  electron  transfer  cross  sections  from  the  K,  1, 
and  M  shells  of  argon  to  the  X  shell  of  hydrogen.   Comparison  between 
these  results  and  the  available  experimental  data  is  shown  in  Fig.  IV. 6. 
At  low  collision  velocities  capture  from  the  Ar(3p)  state,  (dashed  line), 
dominates  the  total  electron  transfer  cross  section,  (dot-dashed  line), 
entirely  masking  the  Ar(3s),  (dashed  line),  contribution.   This  is  consis- 
tent with  the  foregoing  discussion  concerning  energy  defects.   As  the  col- 
lision energy  increases,  L  shell  capture  begins  to  take  over.  Again,  most 
of  the  capture  occurs  from  the  p  state  though  the  s  state  contribution  is 
not  negligible.  At  still  higher  proton  velocities  transfer  from  the  K 
shell  begins  to  be  important.   The  fine  details  of  this  study  warrant  im- 
provement;  however,  the  overall  agreement  with  experimental  data  is  satis- 
factory. 

In  Figs.  IV, 7a,  IV. 7b,  and  IV. 7c  the  impact  parameter  dependence  of 
the  weighted  capture  probability,  2?(l-?)o,  is  illustrated  for  the  trans- 
fer of  K,  L,  and  M  shell  electrons.   These  figures  indicate  some  general 
trends.   The  maxima  of  the  weighted  probability  f;r  a  giver,  state  moves  in 
to  smaller  impact  parameters  with  increasing  projectile  velocity.   Accom- 


Figure  IV. 6:     The  energy  dependence  of  the  capture  cross  section 
for  electron  transfer  from  the  K,  L,  and  M  shells 
of  argon  atoms  to  the  K  shell  of  hydrogen.   Calcula- 
ted total  cross  sections  from  each  shell  are  indica- 
ted, ( —  -  —  -) ,  along  with  individual  subshell 
contributions,  ( ).   The  experimental  da- 
ta, ( ),  from  the  K  and  L  shells  are  from 
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Figure  IV. 7:     The  weighted  capture  probability,  2P(1-P)p,  for 

electron  transfer  from  the  N  =  3,  2,  and  1  states 
of  argon  to  the  N  =  1  state  of  hydrogen.   The  ra- 
dial distribution  of  the  target  wavefunction  for 
each  corresponding  orbital  is  illustrated  in  the 
lower  figures. 
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panied  by  this  is  the  disappearance  of  oscillation  in  the  probability 
function. 

Fig.  IV. 8  presents  results  from  a  similar  study  of  electron  trans- 
fer from  the  outermost  shells  of  neon  and  krypton  to  the  K  shell  of  hy- 
drogen.  The  subshell  contributions  are  listed  in  Table  IV. i   for  selected 
collision  energies.   The  agreement  with  experimental  data  is  good  for 
P  +  Kr  though  the  shape  of  the  curve  is  somewhat  questionable.   This  is 
not  the  case  for  P  +  Ne.   The  disagreement  between  theoretical  and  experi- 
mental results  is  substantial,  particularly  for  proton  energies  less  than 
10  kev.   Capture  from  the  L  shell  of  neon  is  a  much  more  asymmetric  pro- 
cess than  the  other  two  systems  discussed  in  this  section.   Usage  of  the 
single  particle  approximation  is  known  to  be  a  limitation  in  this  formu- 
lation as  is  the  retainment  of  only  two  states  in  the  multistate  expan- 
sion, Eqn.  II. 3.   Chapter  V  discusses  these  points  in  further  detail. 

A  preliminary  study  of  the  Z  dependence  of  electron  transfer  from 
the  L  shell  of  argon  to  the  K  shell  of  various  ions  has  been  made.   The 
OBK  theory  predicts  these  cross  sections  to  be  scaled  by  Zg  when  Zg/Z^ 
is  small  and  the  projectile  velocity  is  large.   Table  IV. 5  presents  the 
results  of  this  study  for  three  collision  velocities.   These  calculations 

are  not  in  accord  with  the  Z_   scaling  estimate  nor  do  they  exhibit  any 

B 

such  simplistic  Z  dependence. 
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Figure  IV. 8:    The  energy  dependence  of  the  charge  transfer  cross 
section  from  the  outermost  shells  of  neon  and  kryp- 
ton to  the  K  shell  of  hydrogen.   The  total  transfer 
cross  section  from  each  shell  is  indicated, 

( ),  along  with  the  individual  subshell 

contributions,  ( ).   The  experimental  da- 
ta, ( )  ,  are  from  the  compilation  by  Tawara 

,30 
and  Russek 
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CHAPTER  V:   DISCUSSION  AND  SUMMARY 

In  this  work  the  Two  State  Atomic  Expansion  method  has  been  applied 
to  the  study  of  electron  capture  within  the  independent  particle  approxi- 
mation.  A  Herman-Skillman  model  has  been  used  to  describe  charge  trans- 
fer processes  involving  multielectron  ions.   Wide  ranges  of  collision 
energies  have  been  covered  in  order  to  observe  the  shell  dependence  of  the 
total  capture  cross  section.   Two  different  models,  the  Herman-Skillman 
and  the  screened  hydrogenic,  were  compared  for  the  description  of  the  K-K 
transfer  process.   It  was  observed  that,  except  for  very  asymmetric  sys- 
tems, the  capture  probabilities  are  sensitive  to  the  type  of  atomic  model 
used  for  the  multielectron  atoms.   Prior  to  this  there  are  few  serious 
attempts  to  describe  charge  transfer  from  outer  shells  and  it  is  'hoped 
that  a  more  in  depth  study  will  emerge  from  this  preliminary  work. 

A  comment  on  the  experimental  data  is  in  order.   Particularly  for  the 
K-K  transfer  process,  comparison  of  theoretical  and  experimental  results 
is  difficult.   The  experimental  values  in  Table  IV. 1,  for  instance,  were 
deduced  from  either  x-ray  or  Auger  cross  sections.   A  single  fluorescence 
yield  or  Auger  rate  was  assumed  in  determining  the  total  vacancy  produc- 
tion.  This  assumption  is  open  to  question.   For  example,  it  has  been 
shown  by  Tawara  et .  al.   that  in  F   +  Si  collisions  the  fluorescence 
yield  for  Si  K  x-rays  changes  from  1.7w.  to  1.9w  with  the  removal  of  5 

and  6  target  electrons,  respectively.   (w~  is  the  fluorescence  yield  for 

9+ 
neutral  Silicon.)   In  F   +  Ar  collisions  it  was  estimated  that  6-8  tar- 
get electrons  are  removed  with  the  production  of  one  K  shell  vacancy. 
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This  discussion  implies  that,  theoretically,  ionization  and  inner 
shell  capture  should  be  considered  simultaneously.   Such  a  formulation, 
however,  is  impossible  at  present. 

The  preliminary  study  of  outer  shell  capture  done  in  this  work  is 
the  first  of  its  kind.   Both  the  atomic  and  scattering  models  are  as 
simple  as  possible  without  being  unrealistic.   However,  improvements  in 
the  description  of  capture  from  both  outer  and  inner  shells  can  be  made. 

A,  Atomic  Model.   The  primary  defects  of  the  atomic  model  are  due 
to  the  single  particle  approximation.   Because  outer  shell  capture  occurs 
at  low  projectile  velocities,  usage  of  antisymmetrized  wavefunctions 
would  probably  improve  the  agreement  with  experimental  data.   The  effect 
of  the  neighboring  electrons  on  the  active  electron  may  be  comparable  to 
the  perturbation  caused  by  the  impinging  ion  as  well,  particularly  for 
low  collision  velocities.   (For  example,  this  may  be  important  in  the  cap- 
ture of  neon  L  shell  electrons  by  protons.)   Thus,  the  formulation  of  a 
many  electron  theory  of  charge  transfer  is  warranted.   The  difficulties 
involved  in  such  a  calculation,  however,  are  formidable. 

B.  Scattering  Model.   The  major  approximation  made  in  the  scattering 
model  is  the  retainment  of  only  two  terms  in  the  multistate  expansion, 
Eqn.  11.3.   For  instance,  the  initial  and  final  state  wavefunctions  in 
very  asymmetric  collisions  are  severely  different  in  size;  therefore,  it 
may  be  necessary  to  include  intermediate  states  in  the  multistate  expan- 
sion for  the  purpose  of  'filling  the  gaps'.   This  type  of  approach  should 
improve  the  description  of  a  process  such  as  the  K-K  transfer  of  argon  e- 
lectrohs  to  protons. 

As  is  evidenced  by  Figs.  IV. 7,  the  impact  parameters  important  to 
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the  transfer  process  become  small  with  increasing  projectile  velocity. 
The  Two  State  Approximation  is  not  adequate  to  describe  this  region  well. 
At  high  collision  velocities,  therefore,  the  inclusion  of  states  which 
have  amplitude  in  the  small  impact  parameter  region  should  improve  the 
results.   For  the  description  of  outer  shell  electron  transfer  this  would 
mean  the  inclusion  of  lower  orbital  states  and  for  transfer  of  inner 
shell  electrons,  the  inclusion  of  pseudostates. 
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TABLE  III.  1 

COMPARISON  OF  ORBITAL  ENERGIES 
FOR  THE  BOUND  STATES  OF  ARGON 


ORBITAL  HARTREE-FOCK*  HERKAN-SKILLHAN**  THIS  WORK 

Is            -  118.61             -  116.28  -  117.77 

2s            -   12.32             -   11.44  -   11.11 

3s            -   1.28             -   1.05  -   1.07 

2p            -   9.57             -   9.10  -   9.01 

3p            -    .59             -    .53  -    .56 


*   ref.  no.  22 
**   ref.  no.  21 
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TABLE  III.  2 

EXPONENTS  AND  EXPANSION 
COEFFICIENTS  FOR  NEUTRAL  ARGON* 


EXPONENTS 
Is  18.01640 
3s  22.04650 
3s  16.08250 
3s  11.63570 
3s  7.70365 
3s  4.87338 
3s  3.32987 
3s   2.02791 


is 

.97349(  .97824) 
. 01684 (  .01148) 
.02422(  .02659) 

-.00114(-. 00685) 
.00123(  .00259) 

-.00039C-. 00122) 
. 00010 (  .00054) 

-. 00003 (-. 00011) 


2s 

3s 

.27635( 

.28011) 

. 08634 ( 

.09449) 

.00289( 

.00069) 

.00186( 

.00042) 

-.0342K- 

.03907) 

-.01540(- 

.01478) 

-.33229(- 

.35409) 

-.10236(- 

.12777) 

-.65828(- 

.62148) 

-.27614(- 

.28171) 

-.06834(- 

.08899) 

-.11879(- 

.10256) 

. 00623 ( 

.14479) 

.68436( 

.74965) 

-. 00174 (- 

.00198) 

.52050( 

.45017) 

EXPONENTS 

2£ 

3r 

2p 

9.05477 

.64116( 

.68865) 

-.17850(- 

.20725) 

4p 

15.54410 

.00865C 

.00241) 

-.00812(- 

.00801) 

4p 

12.39770 

. 04186 ( 

.03307) 

. 00520 ( 

.01045) 

4p 

8.56120 

.31735( 

.28159) 

-.10986(- 

.10940) 

4p 

5.94658 

.09642( 

.09553) 

. 10944 ( 

.15359) 

4p 

3.42459 

. 00003 (- 

.00285) 

.56149( 

.59541) 

4p 

1.96709 

. 00053 ( 

.00101) 

.46314( 

.39726) 

4p 

1.06717 

-. 00013 (- 

.00029) 

.0295K 

.02429) 

The  entries  to  the  left  of  the  parenthesis  are  the  expansion  coeffi- 
cients, A  in  Eqn.  III. 5,  from  reference  no.  21.   Those  in  parenthesis 
are  the  expansion  coefficients  obtained  in  this  work  by  the  procedure 
described  in  Section  III. A. 


60 


TABLE  IV. 


K-K  CAPTURE  CROSS  SECTIONS  FOR+ 
BARE  PROJECTILES  ON  NOBLE  GASES 


PROJECTILE 
+  TARGET 

E(MEV) 

V/V^ 
.79 

a  * 

_! 

368 

CTHS** 
284 

°EXP 

N   +  Ne 

14 

355a 

19 

.92 

343 

223 

350 

N  +  +  Ar 

14.7 

.42 

5.1 

1.4 

3.2b 

26.3 

.56 

12.6 

3.4 

13.2 

F9+  +  Ar 

20 

.42 

23.1 

5.6 

9.7C 

30 

.52 

34.7 

10.0 

29.0 

36 

.57 

38.6 

16.0 

30.4 

46 

.64 

40.4 

22.0 

47.7 

56 

.71 

38.7 

26.0 

53.6 

66 

.77 

35.0 

27.0 

48.8 

SO 

.85 

30.0 

27.0 

— 

36 

.88 

23.0 

— 

— 

114 

1.01 

20.0 

21.0 

— 

F9+  +  Kr 

46 

.30 

.074 

.029 

.010 

56 

.33 

.079 

.037 

.037 

nh 

.36 

.075 

.040 

.064 

76 

.39 

.068 

.038 

.061 

Cl17+  +  Kr 

100 

.33 

1.55 

0.52 

0.60d 

120 

.36 

1.40 

0.59 

1.15 

140 

.39 

1.62 

0.60 

1.90 

160 

.42 

2.50 

0.60 

•  3.80 

-?0   n 
+  Units  are  10    cm  per  target  electron. 

*  Calculations  done  using  a  hydrogenic  model. 

**  Calculations  done  using  a  Herman-Skillman  model. 

a)  Woods  et.  al.  (1976) 

b)  Hoods  et.  al.  (1973) 

c)  Hopkins  et.  al.  (1976a) 

d)  Hopkins  et.  al.  (1976b) 
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TABLE  IV.  2 

TARGET  IONICITY  DEPENDENCE  OF       t 
K-K  CAPTURE  CROSS  SECTIONS  FOR  F9+  +  Arn+~ 


V/V.  13+ 


.42  5.2  5.8  5.6  5.3 

.57  14.5  16.1  15.5  13.6 

.77  24.9  25.8  25.5  24.3 

1.01  18.8  19.0  18.9  18.7 


Targ 

et  Ionlcity 

0+ 

7+ 

10+ 

5.2 

5.8 

5.6 

14.5 

16.1 

15.5 

24.9 

25.8 

25.5 

18.8 

19.0 

18.9 

*  -20   2 

Units  are  10    cm  per  target  electron. 
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TABLE  IV.  3 

SUBSHELL  CAPTURE  CROSS  SECTIONS  PER 
TARGET  ATOM  FOR  PROTONS  ON  ARGON  (cm2)* 


TARGET 
Ar(n=3) 


ENERGY (KEV) 

2.0 

5.0 

10.0 

20.0 

50.0 

75.0 

100.0 

200.0 


Ar(n=2)    200.0 

400.0 

500.0 

1000.0 

3000.0 


s 

8.9(-17) 
1.5(-16) 
2.0(-16) 
2.4(-15) 
1.0(-15) 
2.2(-17) 
1.0(-17) 
8.8(-19) 


px 
9.7(-16) 
7.0(-15) 
6.4(-16) 
4.8(-15) 
1.4(-16) 
3.2(-17) 
1.5(-17) 
1.7(-18) 


PZ 


2.4(- 
3.0(- 
2.7(- 
2.8(- 
1.4(- 
4.1(- 
2.4(- 
4.1(- 


5.8(-20)  3.2(-19)  2.9(-19) 

1.4(-19)  2.2(-19)  3.4(-20) 

1.2(-19)  1.3(-19)  3.3(-21) 

4.5(-20)  4.6(-20)  1.4(-20) 

5.7(-22)  1.5(-21)  2.9(-21) 


1.3(-15) 
l.K-15) 
l.K-15) 
1.0(-15) 
3.3(-16) 
9.5(-17) 
4.9(-17) 
5.7(-18) 

6.7(-19) 
4.0(-19) 
2.5(-19) 
l.K-19) 
5.0(-21) 


*The  numbers  in  parenthesis  are  the  exponents  of  the  cross  sections. 
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TABLE  IV.  4 

SUBSHELL  CAPTURE  CROSS  SECTIONS  PER  TARGET 
ATOM  FOR  PROTONS  ON  KRYPTON  AND  NEON  (cm2)* 


TARGET 

ENERGY (KEV) 

as 

V 

V 

°T 

Kr(n=4) 

2.0 

2.1(-16) 

1.2(-15) 

5.2(-16) 

2.0C-15) 

5.0 

1.7(-15) 

8.9(-16) 

3.9(-15) 

1.5(-15) 

12.5 

3.2(-16) 

7.3(-16) 

4.1(-16) 

1.5(-15) 

25.0 

2.6(-16) 

4.0(-15) 

3.2(-16) 

9.7(-15) 

50.0 

7.2{-17) 

1.3(-16) 

1.5(-15) 

3.5(-16) 

100.0 

2.1  (-17) 

2.2(-17) 

4.0(-17) 

8.0(-17) 

200.0 

2.2(-18) 

2.0(-18) 

4.5(-18) 

8.7(-18) 

Ne(n=2) 

2.0 

... 

1.6(-15) 

2.7(-16) 

4.3(-16) 

5.0 

1.4(-13) 

3.5(-16) 

1.3(-16) 

4.8(-15) 

10.0 

4.4(-13) 

3.4(-16) 

2.8(-17) 

3.7(-16) 

30.0 

5.3(-17) 

2.1(-16) 

2.K-17) 

2.9(-16) 

60.0 

4.3(-17) 

8.0(-17) 

2.2(-17) 

1.5(-16) 

100.0 

2.3(-17) 

3.K-17) 

1.6(-17) 

7.0(-17) 

*The  numbers  in  paranthesis  are  the  exponents  of  the  cross  sections. 
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TABLE  IV.  5 

Zn  DEPENDENCE  OF  THE  ARGON  (N=2)-»Zp  (N=l) 
CAPTURE  CROSS  SECTIONS  PER  TARGET  ELECTRON  (Cm2)* 


(MEV/AMU) 

h 

a2s 

2px 

G2pz 

°T 

°T/z5 

200 

1 

5.8(-20) 

3.2(-19) 

2.9(-19) 

6.7(-19) 

6.7(-19) 

2 

2.3(-18) 

9.6(-18) 

1.9(-18) 

1.4(-17) 

4.4(-19) 

3 

1.5(-17) 

3.0(-17) 

3.5(-18) 

4.8(-17) 

2.0(-19) 

4 

3.4(-17) 

3.6(-17) 

1.4(-17) 

8.4(-17) 

8.2(-20) 

5    3.5(-17)   3.7(-17)   2.3(-17)   9.5(-17)  3.0(-20) 

400      1    1.4(-19)   2.2(-19)   3.4(-20)   4.0(-19)  4.0(-19) 

2  2.0(-18)   4.9(-18)   7.0(-20)   7.0(-18)  2.2(-19) 

3  8.2(-18)   1 . 7  (-17)   3.7(-18)   2.9(-17)  1.2(-19) 

4  l.5{-17)   2.7(-17)   1.5(-17)   5.7(-17)  5.6(-20) 

5  1.6(-17)   2.7(-17)   2.K-17)   6.4(-17)  2.0(-20) 

600      1    1.2(-19)   1.3(-19)   3.3(-21)   2.5(-19)  2.5(-19) 

4.K-18)  1.3(-19) 

1.3(-17)  7.4(-20) 

3.7(-17)  3.6(-20) 

4.5(-17)  1.4(-20) 


*The  numbers  in  paranthesis  are  the  exponents  of  the  cross  sections. 


1 

1.2(-19) 

1.3(-19) 

3.3(-21) 

2 

1.2(-18) 

2.6(-18) 

2.6(-19) 

3 

4.2(-13) 

9.8(-18) 

3.3(-18) 

4 

7.2(-18) 

1.7(-17) 

1.2(-17) 

i 

8.3(-18) 

2.0{-17) 

1.7(-17) 
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APPENDIX  I 

A.   Potential  and  Wavef unctions .   This  section  outlines  the  proce- 
dure used  to  determine  the  wavefunction  parameters,  A.,  in  Eqn.  III. 5  and 
the  corresponding  energy  eigenvalue.   Within  the  independent  electron  ap- 
oroximation,  the  wavefunction  for  the  active  electron  is  written 


A. 2 


P;i£  (r)  satisfies  {H£  -  E^}  P^  =  0   where 

The  first  part  of  program  HERMAN  in  App.  II. A  fits  the  potential  of 
Herman  and  Skiilman  to  the  form 


P  .  (r)  is  expressed  as  a  sum  of  Slater  type  orbitals 


RM  --  l/i.% 


1HQ.W       l~ •  fc  I  *  a. 4 
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The  column  matrix,  A,  is  obtained  from  the  solution  of  the  eigenvalue 
equation 


s"HA--EA 


A. 5 


where  S  and  H  are  defined  as 

A. 6 


A.  7 


Eqn.  A. 5  is  inconvenient  to  solve  because  the  basis  functions,  \Xj) , 
are  not  orthogonal.  Though  programs  are  available  to  diagonalize  matrices 
of  the  form  A-1B,  Eqn.  A.  5  can  also  be  solved  by  expressing  the  {x_^}  in 
terms  of  an  orthonormal  basis  set,  (fy;} 


i 


where  the  a,  •  are  determined  by  the  procedure  of  Schmidt  orthogonaliza- 
tion.   Both  the  x  -  and  i ;  are  of  the  form 


ft--NUV^ 
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where  the  parameters  n  -  and  a  •  are  taken  from  the  tables  by  Clementi 
and  Roetti.   The  basic  integrals  to  be  solved  are 


Sij«  <**!**> 


A.  10 


where  n  =  n  .  +  n  .  and  a  =  a  -  -t-  a  • 
■L  }  -L  j 


„1   „2 


•<-r 


H~  -,  and  H  -  are  defined 


H^H^ta 


faltfO 


■  !&&  /^  rv.; 


A. 11 


A. 12 
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\UUl)\     .     ,  A. 13 


A. 14 


--  NiNj  tel>  Ci£±) 


where  a'=  a  +  A  .   Evaluation  of  these  matrices  and  the  diagonalization 
of  Eqn.  A. 5  is  performed  in  the  second  part  of  program  HERMAN  listed  in 
App.  II. A. 
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B.   Evaluation  of  the  Matrix  Elements.   The  two  centered  matrix 
elements  appearing  in  Eqn.  11.9  can  be  evaluated  in  prolate  spheroidal 
coordinates.   The  procedure  used  to  derive  the  off-diagonal  terms  of 
both  the  overlap  and  interaction  matrices  is  similar  because  of  the  com- 
mon factor  e1  V  "  r.   These  matrix  elements  are  evaluated  in  Appendix 
I.B.I.   The  derivation  of  the  diagonal  terras  is  given  in  Appendix  I.B.2. 

B.l.  Off-Diagonal  Terms.   The  following  definitions  necessary  for 
the  evaluation  of  the  off-diagonal  matrix  elements  in  Eqns.  II. 9  can  be 
found  in  the  monograph  by  McDowell  and  Coleman. 


A.  15 


It  is  convenient  to  define  the  function 


A.  16 
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where 


A. 17 


i 

T^ft  ^  X/^-j5  -JW7 

Using  Bessel's  integral 

the  integration  over  i   is  easily  performed.   M  (-)m(l  -  u2)m/2   is 
expanded  in  an  associated  Legendre  series 


A. 19 


where  a.   ,.  =  0  for  £+'.  odd.   For  L+l   even 


h,-l  cm    rm 


The  V   integration  is  done  with  the  help  of  an  identity  given  by 

24 
Watson 


A. 20 
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I  _,        A. 21 

I 


The  resulting  expression  is  the  same  regardless  of  whether  m  is  positive 
or  negative. 

6+to  Co  A-22 

The  integration  over  X   is  done  by  making  a  simple  change  of  variables 
and  using  Gauss-Laguerre  quadrature. 

In  this  work  only  processes  of  the  form 

"3f  +  Mni)~*  J3M)+  A*  A'23 

and  their  time  reversed  counterparts  have  been  considered.   Though  the 
programs  in  Appendix  II. B  and  II. C  are  written  for  the  specific  cases  of 
I   =  0  and  1=1,    it  is  simplest  to  derive  the  matrix  elements  for  the 
more  general  processes,  Eqn.  A. 23  and  then  specialize. 

The  initial  and  final  state  wavefunctions  for  the  reaction,  A. 23  are 


C  -  %}  YSj») 


A. 24 


i 


A. 25 


where 


<M=I^,AV^    „,«v 


A. 26 


Y  stands  for  either  A  or  B.   The  standard  series  representation  is  used 


forY^Oy. 


'  i.  .  J**L 


V^F 


A. 27 


where 


*»    3ft  Ju^trw  (l-»-±A)l 


Using  the  definitions  A. 15  and  repeated  applications  of  the  binomial  ex- 
pansion to  r.  ,  rR  ,  and  cos  9R,  the  expression  for  the  wavefunctions 


are  cast  into  the  form 


A.  28 


n 


*-     ■        "'  **-  *r-A>+1 


29 


where  .    j 

nzri-rt-^Jts 


It  is  convenient  as  well  to  express  V.  and  V„  in  powers  of  X  and  u. 

A  D 

J"0  *'?  A.  30 

H  fa 

i.  A    B   . 

where  Cg  =  c.  =  1. 

Substitution  of  Eqns.  A. 23  -  A. 30  into  Eqns .  II. 9  gives  for  the 
off-diagonal  terms 

0A1j  -       fit  too  A.  31 

A 


HaB  *  ~    f"|  0 

u*  -  -  P B 
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A.  32 


and 


2  •*.+  *}%.  N'=N+>-* 


A.  33 
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B.2  Diagonal  Terms.   It  is  convenient  to  define  the  function 


**>{- 


where 


-^ 


A.  34 


A.  35 


The  en's  and  ^n's  satisfy  the  recursion  relations 


A. 36 


where 


oijo  -  & 


-6 


<*/>  =  /- 


<£        _< 


A. 37 


Using  Eqns.  A. 34  and  A. 28-29,  it  is  straightforward  to  derive  the 
analytical  expression  for  the  diagonal  terms. 


where 


A.  39 


k  « -  -a-  *  wr*  hchjfiy)  fa$8§tt* 


rt 


n-o     /£■<>    -^--° 


^t» 


iG)km^(^^)B^)(^mm)^ 


im 


t*° 


where 


The  coding  written  to  perform  these  calculations  is  listed  in 
Appendices  II. B  and  II. C. 


77 


APPENDIX  II 

Appendix  II  lists  the  computer  coding  written  to  perform 
the  calculations  of  Appendix  I.  Appendix  II. A  begins  on  p.  79, 
Appendix  II. B,  on  p.  89;  and  Appendix  II. C  begins  on  p.  108. 


CCCCCCCCCCLCLCLlCCC^CCCCCCCCCCCCCCCCCCCCi-CCCLCCLICCCCCCCCCCCCCCCCCCCCCCCLCcCCCCC 

ccccccccccccccccccccccccccccucccccccctccccccccccccccccccccccccccccccccccccccccc 


VtR)    -    U  +  (Z-I>«ll»cUn*£XP(-i,LM*R))/2 

WHERE    MR)     IS    A    POLYNOMIAL    OF    CRCER    THREE. 

THE    RACIAL    HAYfif  UNCTIGNS    ARE    EXPFESSEO    AS    SUMS   OF 

SLATER    TYPE    JRBITALS. 

p(Rj  =»  suHin  (c(u*jt(i>) 

EACH  OR6I7AL  IS  OF  Th£  FORM 
X(I)  -  NCRM*(R*»N)»EXPH-A*R) 


EG*.    3 


WHERE    NORM    IS    A    NORMALIZATION    FACTCR.    THE    THE    SCREENING 

FUNCTICN    CCRRESPGNJING    TO    EJN.     1       IS    RcAO    IN    AS    WElL    AS 

THE    PARAMETERS    A    A.\0    N    IN    ECN.    3.       THE    PROGRAM    PUNCFES   OUT 

OLH,     THE    CCEFFICIEf.TS    IN    F[R),    AN3    THg 

INFORMATION    NECtSSJRY    FOR    ThS    CESCR1PTION    OF     THE    *A VEFUNCT ION . 


(LAflEL(i) ,1=1,10) ,    2,    AM, 

LABEL:       PROGRAM    TITLE 

U       CHARGE   OF    TFE    NUCLEUS 

NUMTIM:      THE    NUMBER    GF    L    VALVUES    FOR 

IS    PERFORMED 
12:       THE    ICNICITY.   CF    Tn£    ATOM 

NU:       THE    NUMBER    CF    vAlUES    CF    THE    SCREENING    FUNCTION    TO    B 
lUIIli  1=1, NU)       (3FI0.5) 
U:       VALLES   GF    THE    iCfleEMhG    FUNCTION 

FOR   A    HYORCGENIC     POTENTIAL,    ONE    BLANK   CARC 

SHOULD    tic    R£AC    IN. 


NUMTIM,    NU,     NZ       UCA4,  2F  5  .0,  615  ) 

HICH   THE    JIAGCNALiZATION 
REAO 


THE    NEXT   CARDS    ARE    INPUTTED    IN    SETS    OF    THREE.    ThERE    ARE    NUMTIM    SETS. 

CARC   A:  NTRMS,    L       11615) 

NTRM3:       The    UPPER    tlMIT    CF    THE    SUM    IN    cCN.    2 

LI       THE   CftaiTAL    ANGULAR    MCMENTLM    iL-ANTuM    NUMBER 
CARO   S:  i\OP(I),I=l,NTRMS) 

NDPU)  :       THE    N       IN    ECN.    3 
CARO  C:         i  ■-.<-'  1 1),  i»1,ntrms  i 

AXPUJ  :       THE    A       IN    ECN.    3 

FOR    EACH    L    VALUE,    ThERE    WILL    BE    X    NUMBER    CF    BOUNO    STATES.    FOUR    CAROS 
WILL   BE    GUTPUTTED    FOR   EACH    STATE    BEGINNING    wITH    THE    CNE    HAVING 
THE    MOST    NEGATWE    ENERGY     EIGENVALUE. 

CARO   AA!         EVAL,    0,     <C V { J  )  ,  J  =  L , 3) ,    ONZ 

EVAL:       ENERGY    EIGEN  VAl  U£    FOR    A    GIVEN   STATE. 

C:       THE    FLOATING    PCINT    EQUIVALENT    OF    NTRMS 

OLM:       DcFINeJ    IN    ESN.    1. 

CV:       THE    COEFFICIE'iTS     IN    FIR)    OF    EQN.     1 

DNZ:       THfe   FLOATING    POINT     EQUIVALENT    OF    NZ 

IMAGE    GF    CARD    B 

IMAGE    CF    CARO    C 

IEVCTIK.1 1,1  =  1  ,NTR*S) 

THE    CHI     IN    EQN.    2   FOR    A    GIVEN    STATE    K 

CARD    IMAGES    OF     ThE    UOTPUT    ARE    PRINFEO    IN   THE    PROGRAM    AFTER     TH=    LISTING 
CF    THE     kAVEFUNCTIGNS    FOR    EVLRY    L    VALUE.     EACH    SET    GF    FOUR    CARDS    ARE    THEN 
USED    AS     INPUT    FCR    ANSBN3    ANC    ANScNP. 


CARO  BS: 
CARO  CC: 
CARO   DO: 


WRITTEN    BY    LAJRA    TuNNELL     11976) 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLilM 
LCCCCCUCCCCCCCCCCCCCCCCCCCCCCCCtCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCc^r/lr 


CCCCLCCCCCCCCCCCCC 


79 


IMPLICIT    ft£Ai.*B[a-HfG-ZI 

CGMMCN/kF/A(_f  CO)  .AXP(20),ANRHI20)  ,NDP  1  20  )  ,  LJPl  20  J  ,L,  NTRMS 
COMMON/ HSV/CVl  10)  ,ULH,Z  ,1 1  ,RH  ,Ui  11  5)  ,NV,NU 
CCMMGN/tCH/AU2iJ  iGU25  I  ,XUZ5) , £VAt  (20  >i  EVCF  1 12.  12J.NH 
DINtNSt  ON    :  .■■■■  fc  ,  i  Zi  i 

1  FCAMAUUm 

2  f CAMATI6F10.5J 

3  FORMAT!  lCA<,,2F5.G.e.I5» 

*    FORMAT!  ///I  0A4,  '       Z    -*,F3.0/1 
5    FORMAT! ///•  1' ,10A4,'       L    >•  tJU/l 
220    FORMAT!///'     '/) 


NV*3 

0LM-O.O0C 
OG   20    1  =  1,10 

20    CVt IJ=0.CjO 

READ  (5,  3  J       (LA36L(I)tl*l,10l,2.,RM,NLlHTIH,NU,NZ 

IFtRM.EC.O. 000)       RN- 1.000 

IFINUMT IM.fc 3.0}       NUMTIM=1 

IF(NU.EC.O)       NJ=1 

0N2-NZ 

ZI-ONZ+l 

stAOtsri     <um  ,i=i.nu) 

PRINT    22C 

PRINT  200 
200    FORMAT  I  •  (LA3EU  I)  , I* I ,10 ) , Z ,RK, NUHT IH, NU  ,N Z 

PRINT    3,  ILABcLi I)  ,  1=  1, 10  ) , Z  .RM.NUMT I H, NU ,N2 

PRINT  210 
210    FORMAT!'  t Ul I ) , I =1 ,NU)     M 

PRINT    2,  IU(I J, 1=1, NU) 

PRINT   22  C 

PRINT    4,     (LASEU  I),I«1,10>  ,1 

IF1UU)  .  EC-  1.000)       CALL    VFCTN 

00  12  N»IfNUMTI H 
READI5,  II       KTArtS,L 
READI5.il       <NDPU),I-1,NTRM5) 
READ! 5, 21       UXP(I}.l  =  l,NTRMi) 
PRINT    220 

PRINT    221 

221  FCRMATI '  NTRMS, L  ' I 
PRINT    1 ,          NTRMS, L 
PRINT   222 

222  FCRMATI  ' 
PRINT  1  , 
PRINT    223 

223  FCRMAH  '  ( AXP  U  1 ,  1=  1,  NTRMS  I        ') 
PRINT   2,  IAXPIU  ,1*1. NTRMS) 
PRINT    220 
DC    10   J=l, NTRMS 

A1=(2.0GC*AX?(J)  ) *-M2*N0PU)*l) 
A2*DGAMMA(GrLCAT(  2*N0P ( J )  + 1  i J 

10    ANRMIJ)  =C5CRTUi/A2) 

PRINT    5,     ILAbEcf I) ,1=1,101 , L 

CALL    C3EF 

OG    12    I  I-W  NTRMS 

1  =  ( H-NTRMS)-II 

IftEVALl  D.GT.O.GOOl       GO    TO     12 
£VALi*-E\ALII) 
D=DFLCAT(NT*MSJ 

EVALliGtDLMi  iCV  U  ) ,  J=l,  3  )  ,C.iZ 
UDP(  J)  ,J=1. NTRMS) 
IAX?{J),J=1, NTRMS) 
[EVCT1I »J) ,J-l ,NTP^S) 

EVAL1,C.CLM,ICV( J  I  ,J-l,3i ,CNZ 
(NDPI J) ,  J  =  l .MRMS) 
{AXP1 Jl  ,J=1, NTRMS) 
IEVCTI i,J),J=l.NTkMS) 


SU3RGUTINE    CGEF 

IMPLICIT    KEAL"SlA-rt,C-Z) 

CUHMCN/af/ACfUOJ  ,AXPI 20) , ANRMI 20)  ,NOP(  20  )  ,  LJP(  Z  01  ,  L  ,  NTRJ-S 

CGf.MCN/E0lv/AU2  5!  ,U<2Z5  I  ,X  I225),EVAL  IZO),  EVUU2,  121.NM 

DIMENSION       «FCTN<aa»i2J 

DIMENSION   ALP(  1^,12),  CLP  112,12), HI  12  .  12) , R(  12 , 1 Z) 

C0MM0N/hi,//CVlli).^LM,ZlZI,„S,«(i25),NV,N7 

OIMENSICN    RF<20). VFI2C) ,01 20) 

DIMENSION         ftlUU) 
3    FGRMATf  1CUX,  LPulZ.5)  ) 
6    fCftMATI10tlX.lPC12.5J) 


PUNCH 

: , 

PUNCH 

l, 

PUNCH 

2. 

PUNCH 

2, 

PRINT 

2. 

PRINT 

1, 

PRINT 

2. 

PRINT 

2  ■ 

12 

CONTINUE 

STGP 

END 

so 


NM-NTR4S 
00    10    I-l.NTHNS 
00   10   J-  ;,'.'■''  ■> 
NO-NDPI  ll»NdPIJ)tl 
Nl-NO-1 
N2-N1-1 

AA-AXPI I )*AXP(Jl 
RFt  D-l-CCO/AA 
00    11    K-l.NO 
K*"K-1 
11*  RFU*n-(OFLCAT(K.A»l)/AAJ»RFliU 

H1-NDP1  I  J*Ni5P(  JJ»Rf  ISZt-ihDPi  I)*AXPI  J )*NDF ( J) »AXP 1 1  )  I»RFIN1) 
»    *AXP(I  J*AXft_J»Rr-.-.J 
H2«0FlCAT{-«(L'k) MR  F (N2I 
VA-01M*AA 
Vftll-l.OOO/VA 
NNV*NV+NO 
DO    12   K-l.NNV 
KK-K-l 

12  VFIR*1) -IOFLCAT (KKU  )/V  A)  *VF  (K  ) 
NN1-N0+1 

KN1-NNV  +  1 

H3-0.CD0 

00    13   K-ltNV 

13  H3-H3*CV(K]*VFIM*K) 
H3»2I*RF  (Nil*  U-2  I)*  (VF(N1)*H3  ) 
AN-ANRHI  I1*ANR*IJ) 

H(i  ,Ji«At**(Hl«H2-2.}C0*H3)/2.Ci;0 
MttJl"AN*RMNOI 

H  [J  ,  1  J  =  r-  (  I,  J) 

R(J,Ii-RU, J) 
10    CONTINUE 

ALP<1,1)=1.000 

00    30   N=2,NTRNS 

ALP(N,N)»1.000 

Nl-N-1 

ONRH«  I.  000 

00   36    1=1, Nl 

Atll-O.GCO 

00    35   J-1,1 

35  AiU-AU  JtALPU.J  J*RU,N) 

36  ONRM-0NR*-Am«A(lJ 
ONRM=CS*RTl DASif  ONRMJ  » 
00   21    K«1,N1 
ALPU.NJ  =0.000 
ALPtN,K]*0.OCO 

00  21   i*k,ni 
21    ALP(N»K) =AlP(N,K}-A( 1)*AL?(1 j  iO 

00   30   K-l.N 
30   ALPfN.KJ  '1L?IS,M/JMM 

DO   70    I-l.NTRMS 

00    70    J=1,J 

DLP(I,J)=C. 300 

00   70  K-1,1 

EVCTtK,  JI-O.000 

00    75   L-  t*J 

EVCT(K,J)=£/CTU,  J)*mK,L)«ALP<J.L) 
75   CONTINUE 

OLPHtJ  l=JLPt  1,  JUALPtt  ,(U»EVCTUtJ) 
70    CGNTIMJE 

PRINT    5 
5    FCRMATt//'       HAM1LTCNIAN       '/) 

K-0 

DO    80   I-1.NTRH5 

PRINT   6.     ;■..-'.,..:.:,  I) 

00    60   J-l.I 

K*K#1 
80    AU)«DlP£I,J) 

NM«NTRMS»NTP*S 

CALL    tlCtMNTRHSiOl 

NN*NTR.HS»NT*MS 

NMAX»1 

XK»0 

LL-0 

OG    90   J-1.N7RHS 

U»LL*J 

EVAL(J)  =A(LL) 

1F(EVAL(J).GT.3.CJ0J       r„1AA=J 

OG   90    I-l.NTRHS 
90    OLPU.I  )«Att*(j-l)«MSf*S| 

Nl'MHAX+1 

DC   92    i-l.NTFMj 

00    92   J*I»N TR*j 

fiVCTUt  J  J=0.-L,0 

DO    193    lUl.NTRNS 


'". 


EVCTI  I,  J  l-LVCTI  I.JHCLP1  I  ,  K  )  *AlP I K . J) 
193    CONTINUE 

92  CONTINUE 
PRINT    91 

91    FGfiHATl/y"  ENERGY    EIGENVALUES  '//) 

PRINT    6.     (EVALl I)  .1-l.NTRMS) 
PRINT    93 

93  FCRKATl/'  COEFFICIENTS    FCR    BASIS    SET  •/ ) 
00    94    I-  l.NTRNS 

94  PRINT    3,       (EVCTIJ  ,J1,J=I,NTRMS) 
5-0.000 

PI-OAKCOS  1*1.0001 

f  MtJ»(2.O00*DLi:G(3.u00*PI}-0LOGlZ)-7.CD3»QL0Gi2,0D0»  \t  3.  00  0 
F,1U«0dXP(FMU) 
00    106    J  =  1.8 
SA-2.0O0**!  J-U 
SA*SA«1.  CD-02 
DO    106    1*1,10 
IJ-I  +  U-1)*!. 00*01 
AIIJI'S 
R1I1JJ=FHU»S 
106    S*S*SA 
NU-IJ-1 
N2-NTRMS-NMAX 
PRINT    210 
DC    96    K=1,NU 
FLM-0L*»R1UJ 

IF(FLM.GE.1.*Q0*02)    00*0.000 
IFtFLM. LT. 1.400*02)     C0=DEXP (-FLM  ) 
Ul-RKK)»tCVil»+AHK)*lCVl2]+RMK)*CVt3))  J 
U(K,J=IZI  +  <Z-ZIJ*CC»U.OOO+U1)  )/I 
DO    96    J-M.NTRMS 
*FCTNtK,  J)=O.CO0 
00  96    I*1,NTRHS 
W*O.ODO 

IFf  (AXPt  l]*Rl(K)).LE.l. 200+02)    W=OEXP (-AXPI I) »R1 1 K) ) 
WFCTMK,-J  =  WFCTMK,J)-*    EVCTUi  I )  *ANRH  1 1  ]  *  U  1U  )  "NOP  I  11)  »k 

96  CONTINUE 
PRINT    103 

103    FORMAT!//1       X  R(X1  U(Xl  P  (X  I  *//) 

A  1=0. 000 
00   97    I  =  1,NU 

97  PRINT   3.    A(  II  ,ftlU)  ,U*i)  ,  Al ,  (  WFCTN  1 1  ,.))  t  J=N1,  NTRMS  ] 

Nl-NTRMS-1 
PRINT   21C 

SSUM=G.0CO 

NU«NU-1 

00    22C    I»2,NU1 

X1=R1II-1) 

X  2=  R 1  1 1  ) 

X3=RHI  +  1) 

Yi="*FCTN(I-I,NTR*S) 

Y2-*FCTN(I,NTKMS) 

Y3=WFCTN(I*L>NTRMS) 

Y1=Y1*Y1 

Y2=Y2»Y2 

V3-Y3*Y3 
220    SSUM=SSUK+SUM(X1.X2,X3,Y1,Y2,Y3) 

PRINT    225,    SSUM 
225    FORMAT!/'      SSJM=    ',    IP012.5//),. 
210   FCRMAH/'    '  /) 

RETURN 

END 

REAL    FUNCTION    SU**d( XI .X2 ,X3 , Y 1 t Y2 , Y3 ) 
IMPLICIT    REAL*8     (A-H.C-Z1 

IFIDABSI (X3-X2)-lX2-Xl)).LT.1.0E-3)    GC    TO    10 
A-Yl/U  X1-X2J-I  X1-X3)  ) 
B=Y2/([X2-X3)*U2-X1)  J 
C«Y3/(( X3-Xl]»<X3-X2)  ) 
D-A+fl+C 

E=-A*<X2*XJ1-D*IX1*X3J-C«(X2+X1) 
f=A*XZ*x3+3«,Xt*X3*C*Xl-X2 

SUMM0»lX2«*2*Xl«<X2  +  Xl) ) / 3.000+ t * ( X2+X1 J /2 .OCO+F ) *i X2-X1 J 
RETURN 
10   0-X2-X1 

SUrt-0«t 5*Y1 *3 «Y 2- Y3)/ 12.000 

RETURN 

END 

SUBROUTINE    VFCTN 

IMPLICIT    AEAL*fll A-H.O-Z J 

CCMMCN/MSV/OVIl  J)  ,  OLM  ,Z  ,  Z  I ,  TIM  AX  ,  J  (  22  5  ]  ,  tiV  ,N 

UIHENjIGN    LAHEttiOt  iERRISO) 


OIMENSICfv    Rt225),XU25),UUI225) 

OIMENSIUN      AU25,10I,    0110,10),    0(2*15),    F1225) 
DIMENSION       IUI3),1KM3I,    SS(3],IS(J),    0C(lCi3l 
DIMENSION   Si»MAt5J),iH50I,ii(225)tCVllOt*>J 
3    FORMAT!  1CHX,  IPO  12-51  ) 
305    FORMAT!/ •       • I 


XMAX-l.QCO 

NC-3 

22-1.000/2 

S-0.000 

Pl«OARCOS(-l>OaO) 

0HU« 12. 0C0»0LGG!3.0OG»PI J-OLOG! 2 )-7. 0D0*OLOG( 2.000H /3.  OC0 

QMU«D£XP  (CHU) 

NU«0 

DO    6    J-  1  ,  12 

SA*2.000*»U-l) 

SA- SAM. CO- 02 

DO   6    1*1.10 

1J=I+  t  J-li*  10 

RUJ10ML*S 

S-S+SA 

IF1NU.NE.0I       CO    TC    6 

IFIRUJJ  .CE.RMAX)       NU*IJ 

6  CONTINUE 
NNU-IJ 

IFlNU.tQ.Ol       MJ-IJ 
00    5    I'NtNU 

5    U(IW2 

DETERMINE      OLM 
S*O.0DO 
Ul-0.000 
DO    32    I«2,NU 
Rl=Rf  1-1) 
Itt-RUI 

U2»(U(I  M2-21J/U-IIJ 
U2-DLCG(  :  ■■■  :J  -•  i  U  2  J  ) 
SZMU2-U1)/ 1P2-RU 
S-S+S2 
IFIUt  D.LE.2.000/Z)         GO    TC    33 

32  U1-U2 

33  ZZ«-S/DFLGAT(I-1) 
DO   7    1-1  ,NU 
OlM=ZZ*RU) 

IFIDLM.GT.1.4D+02J       GC    TO    8 
0LH*DFXP(Cl.M) 

7  uu( n*( uiii *z-2I)*olm/: 2-21 ) -1-000 

8  NR-I-l 

CCNSTRJCT    3A5IS    SECTORS 
DO    10    I-l.NNU 
00    10    J*l,NC 

4(1  ,  J)  =  R(II*»J 
10    CONTINUE 

PERFGRM    fULTIPLICATIC.N    PP.CCECURE 
00    20    1*1, NC 
DO    20    J*I,NC 
SIX  ,J)*C.CO0 
00    21    K-l.NA 

21  BU  ,JI  =  8tl,  JJ+AtK,  1)*AIK,J) 

B(Jr  I)  =  fld.  J) 

FID-O.OCO 
00  11   K*l«Nft 

22  F(  I  )«F(  I  J*A(K.I  )*UUIlO 
20    CCNTINJE 

00    30    J=l,NC 
DO    30    I=I,NC 
IJ»1*(J-1J*NC 
C(IJJ«6U,J) 
30    CONTINUE 
NNC-NC*NC 
II-NC 
KKMI 

SOLVE    EttUATJCNS    FOR    THE    COEFFICIENTS 
CALL    DGELG(F,C.NC,NNC,L , 1 .GE-03 , I£R) 
SGMAt  II  i^c.OOO 
CS-1.000 
SGG-O.OOC 
00    40    I-  l.NMU 
OLH  =  U«R(I) 

IF(OLM.G£.1.<<30*02)    00*0. QCQ 
IF(OLH.LT.1.<*00*C2)    DD*ucXP(  -OLrt  I 
GG-O.&OO 
00    50   J«l,NC 


S3 


CVl J, 11 J-FI Jl 
50    GG«GG*F  1  J  J  *  A 1 1)  J) 

ctn-ui*u-:n*oc*t  i.ooo«gg))/z 

1F( l.GE.hU)      GO    TO  tO 
SGMAI II  l-SGMAl  in*t(Ull)-GGl**2J*CS 
40    CONTINUE 
PRINT    30S 

309  f-CkMAT  (/////*  FIT       TO       THE      HERMAN-SKI LLMAN      POTENTIAL       '/) 
PRINT    315,    RMAX.DHU, 22 

315    FORMAT!'    KMAX"     ',1P012.5,'     DMU-    '.1PD12.5,'     DLM*    '.1PC12.51 
*   PRINT    3  10 

310  FGRMAT(/«  X R hM-SK FITTED '/) 

00    311    I-UNNU 

311  PRINT    3.     XI  IJ,R(I),XR,UU).G<  II 
PRINT    301 

301     FORMAT!//'  COEFFICIENTS    FOR    THE    POfENIIAL     ') 

PRINT    3,  (CVtJ(Mt)f  J-lfNC) 

PRINT    30  5 

DLM-72 

DO  320  1-1,3 
320  CV(ll=CVU,KiO 
5000  CONTINUE 

RETURN 

END 


SUBROUTINE    OGELG 

PURPOSE 

TO  SOLVE  A  GENERAL  SYSTEM  OF  SIMULTANEOUS  LINEAR  ECLATI0N5 

USAGE 

CALL    OGELGIR.A.CNfEPS.IER) 

OESCRIPTICN    OF    PARAMETERS 

R  -    DCUBLE    PRECISION    M    BY    N    RIGHT    HAND    SUE    MATRIX 

tOESTRCYeD).    ON    RETURN    R    CONTAINS    THE    SOLUTIONS 
CF    THE    EQUATIONS. 
A  -    OCUBLE    PRtXISICN    M    BY    M    COEFFICIENT    MATRIX 

I  DESTROYED). 
H  -    THE    NUMaER    OF    EiUATICNS     IN    ThE    SYSTEM. 

N  -    THE    NUMBER    CF    RIGHT    HAND    SIOE    VECTORS. 

EPS  -    SINGLE    PRECISION     INPUT    CONSTANT    WHICH    IS    LSEO    AS 

RELATIVE    TCLERANCE    FOR    TEST    C,N    LOSS    OF 
SIGNIFICANCE. 
IER  -    RESULTING    ERROR    PARAMETER    COCEC    AS    FOLLOWS 

IER=0      -    NO    EftfiCR, 

IER*-1   -    NO    RESULT    BECAUSE    OF    M   LESS    THAN     1    OR 
PIVCT    ELEMENT    AT    ANY     ELIMINATION    STEP 
EQUAL    TC    G, 
IER=K      -    WARNING    DUE    TC    POSSIBLE   LOSS    QF     SIGNIFI- 
CANCE    INDICATED    AT    ELIMINATION    STEP    rt*l,       OElG    2*0 
WHERE    PIVGT    ELEMENT    WAS    LESS    THAN    OR  OcLG    300 

EQUAL    TO    Ut"    INTERNAL    TOLERANCE    EPS    TIMES    OELG    310 
ABSOLUTELY    GREATEST    ELEMENT    QF    MATRIX    A.       DELG   320 

OELG    330 
REMARKS  OELG    30 

INPUT  MATRICES  R  A  NO  A  APE  ASSUMED  TO  BE  STORED  COLUMNWISE  OElG  350 
IN    h*N    PESP.    H*«    SUCCESSIVE    STORAGE    LOCATIONS.    O.N    RETURN  JElG    360 

SOLUTION    MATRIX   ft     IS    STORED    CQlUtthNlSE    TGC.  OELG    370 

THE  PROCEDURE  GIVES  RESULTS  IF  THE  NLM3ER  CF  EQUATIONS  M  IS  OELG  3aO 
GREATER  THAN  0  A.'tO  PIVOT  ELEMENTS  AT  All  EClHUtATIQM  STEPS  OELG  310 
ARE   DIFFERENT    FRCM    0.    HChtVcR    '» ARMING    IER=K    -    IF    GIVEN    -  JELG    4iJ0 

INCICATES  POSSIBLE  LOSS  CF  SIGNIFICANCE.  IN  CASE  OF  A  «ELL  OELG  110 
SCALED  MATRIX  A  AND  APPROPRIATE  TCLERArtCE  EPS,  I£R=K  MAY  BE  OELG  120 
INTERPRETED    THAT   MATRIX    A    HAS    The"    RANK    K.     NO    aARMNG    IS  OELG    430 

GIVEN    IN    CASE    M«l«  DELG    *40 

OtLG    450 

SUBROUTINES    ANO    FUNCTION    SUBPROGRAMS    REALISED  OELG    460 

NCNE  OELG    470 

OELG    430 

METHCC  DELG   490 

SOLUTION    IS   OCNE    BY    MEANS    CF    GAUS S-ELIM INAT ICN    WITH  OElG    503 

COMPLETE    PIVOTING.  DELS    510 


OELG 

10 

.OELG 

20 

OELG 

30 

OELG 

40 

DELG 

50 

OELG 

60 

DelG 

70 

DELG 

80 

DELG 

90 

OELG 

ICO 

OELG 

110 

OELG 

120 

OELG 

130 

OELG 

140 

OELG 

150 

DELS 

160 

DELG 

170 

DELG 

180 

OELG 

190 

OELG 

2C0 

OELG 

210 

OELG 

220 

OcLG 

?30 

OELG 

?40 

DELG 

250 

OELG 

2t>0 

DELG 

771 

OELG 

253 

SUBRCUTINE    CGELG  !R. A , f ,MM , N ,EPS , I £R i 


DCUBLE    PRECISION    P  I  V  ,  T5 . TCL  ,Pl VI 
DOUBLE    PRECISION   AIMMI.*1HJ 
lFf*)£3i23<  I 


OELG  520 
•DELG  530 
OELG  540 

OELG  560 
OELG  570 


84 


■ 


SEARCH    FCH    GREATEST     ELEMENT     IN    HATRU    A 

IER-0 

PIV-O.DQ 

HM*M*N 
NM»N*M 

oo  3  l-i.hm 

Tb^OABSUILH 
IFITS-Pl V13,3,2 
PIV-T8 

I-L 

CONTINUE 

TCL«EPS*FIV 

All)     IS    PIVOT    ELFMENT.     PIV    CONTAINS    THE    ABSOLUTE    VALUE    Of    All). 


START    ELIMINATION    LOOP 

LST-1 

DO    17   K-l.H 

TEST    ON    SINGULARITY 
IF(PIV) 23,23,4 

4  IF<IER)7»5,7 

5  IF(PIV-TCL)6,6,7 

6  IER»K-1 

7  P1YI=1.D0/A(1) 
J*(I-ll/' 
I«I-J»M-K 
J-J+l-K 

1+K   IS    RCW-INDEX,    J-fK    CCLUMN-INOEX    CF    PIVOT    ELEMENT 

PIVOT    ROh    REDUCTION    AND    ROW    INTERCHANGE    IN    RIGHT    HAND    SIDE    R 

DO    8    L=K,NM,M 

LL=L*I 

TS-PIVI*RILL) 

RlLL)=Rl L) 

8  RlLt=T3 

IS    ELIMINATION    TERMINATED 
IF(K-M)9,ia,lS 

COLUMN    INTERCHANGE    IN    MATRIX    A 

9  LEND=LST*M-K 
IF*  J  J  12,1.2, 10 

10  II»J»M 

00    11    L=LST ,L£ND 
T3=AiL) 
LL-=L*II 
A(L)"A(LL) 

11  A(LLJ*TB 

ROW    INTERCHANGE    ANO    PIVOT    RC*    REDUCTION    IN    MATRIX    A 

12  DO    13    L-LST.MM.M 
LL-L+I 

T6=?'VI*A(LL) 
A(LLl-AtL) 

13  AU)  =  TB 

SAVE    COLUMN    INTERCHANGE    INFORMATION 
AILST)*J 

ELEMENT     REDUCTION    ANO"   NEXT    PIVOT    ScARCH~ 

PIV-0.00 

LST-LST*! 

J=0 

00    16    II*LST»lE.\0 

PIVl=-A(II) 

l$T*It*M 

J=J  +  1 

DC    15   L-IST ,MM,M 

LL-L-J 

AlLJ*=A(LJ*PlVl»A(LLt 

TS>0ABS(MO) 

1FIT8-P  1  vH5,  15,  1* 

i*  Piv-ra 

I*L 

15  CONTINUE 

00    16    L*K,NM,M 
Ll.-LtJ 

16  R1LL)=R(LL1 *PIVl*R(Ll 

17  LST=LST*f 

END   CF    ELIMINATION    LOOP 


BACK.    SUBSTITUTION    ANO   BACK    INTERCHANGE 


DELS  610 
DELG  620 
D£LG  630 
OELG  64J 
DELS  650 
OELG  660 
OELG  670 
OELG  660 
OELG  650 
OELG  TOO 
OELG  710 
OELG  720 
DELG  730 
DELG  740 
OELG  750 
OELG  760 
OELG  770 
DELG  7dO 
OELG  750 
OELG  BOO 
OELG  810 
OELG  e2Q 
OELG  830 
OELG  340 
OELG  £50 
OELG  860 
OELG  670 
OELG  350 
DELG  890 
OELG  5C0 
OELG  910 
OELG  920 
OELG  530 
OELG  940 
OELG  550 
OELG  140 
OELG  970 
DELG  580 
DELG  990 
OELG1000 
0ELG1010 
0£LGi020 
OELG1G20 
DELG1C4G 
DELG1050 
DELGIC6G 
DELGi070 
OELGlCaO 
0ELG1090 
DELG1100 
OELG1110 
DELGL120 
0ELGU30 
DELG1140 
DELG1150 
OELGl 160 
0ELGU70 
OELGlieO 
OELGl 150 
DELG 1200 
OELG1210 
OELG1220 
DELG1230 
0ELGI240 
DELG1250 
DELGL26J 
OELG1270 
OELG12oO 
OELGl 290 
OELGL3C0 
0ELG1310 
OELG1320 
OELG1330 
CELG1340 
DELG1350 
OELGlieO 
DELG1370 
OELGl  3(30 
DELG1390 
0ELG14CQ 
DELG1-U3 
DELG142Q 
0ELG143Q 
DELG1440 
DELGI45G 
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IS    IFIH-1123«22fL9  OELGl*tO 

19  IST-MM+M  0ELG1*70 
LST-M+l  OELGl*aa 
00  21  I  -  ;,H  DfcLGl**0 
II-LST-I  OELC1500 
IST-IST-LST  OELG1510 
L-1ST-M  OELG1520 
L"AIL)».50O  OELG1530 
DO  21  J-II.NM.M  DELGI5*J 
TB-RIJ)  OELG1550 
U-J  DELG1560 
00  20  K»IST,NN,M  DEI.G1570 
LL-LL*1  DEi.G1580 

20  Td*T&-AU]»R(LL1  0ELG15Sa 
,<  =  J+L  0ELG1&00 
RUJ-RIK)  DELC1610 

21  R(K)*Td  OELGU20 

22  RETURN  OELGUiO 

DELG1640 

DELGI650 

ERROR   RETURN  0ELG1660 

23  IER*->  OELG1670 
RETURN  OELGUdO 
£N0  DELG169J 

EIGE  10 
EIGE  20 

EIGE  3G 

SUBROUTINE    EIGEN  EIGE  40 

EIGE  50 

PURPOSE  EIGE  60 

COMPUTE    EIGENVALUES    AND    EIGENVECTORS    OF    A    REAL    SYMMETRIC  EIGE  70 

MATRIX  EIGE  60 

USAGE 

CALL    EIGENiA,R,N,NV) 

DESCRIPTION    Of    PARAMETERS 

A    -ORIGINAL   MATRIX     (SYMMETRICA     DESTROYED    IN    COMPUTATION. 

RE50LTANT    E  IGE.'iV  ALLE  S    ARE    DEVELOPED    IN    DIAGONAL    OF 

MATRIX    A    IN    DESCENDING   ORDER. 
R    -   RESULTANT    MATRIX    OF     EIGENVECTORS     (STORED    CCLJMN„ISE, 

IN    SAME    SEQUENCE    AS    EIGENVALUES  1 
N    -   GROER    Cf    MATRICES    A    AND   R 
MV-   INPUT    CODE 

0  COMPUTE    EIGENVALUES    ANO    EIGENVECTORS 

1  COMPUTE    EIGENVALUES    C.\LY     (R   NEED    NOT    dE 
DIMENSIONED    EUT    MlST    STILL    APPEAR    IN    CALLING 
SEQUENCE) 

REMARKS 

ORIGINAL    MATRIX    A   MUST    BE    REAL    SYMMETRIC    (STORAGE    MC0E=1) 
MATRIX    A    CANNOT    SE    IN    THE    SAME    LOCATICN    AS    MATRIX    R 

SUBROUTINES    AND    FUNCTION    SUBPROGRAMS    REOulREC 
NONE 

METHOD 

D1AG0NALIIATICN    METHOD    ORIGINATED    6Y    JAC03!     AND    ADAPTEC 
&Y    VON    NEUMANN    FOR    LARGE    COMPUTERS    AS    FOUND    IN    «M ATHEMATiCALEIGE    350 
METHODS   FOR    DIGITAv    CCMPUTERS'  ,    EDITED    5Y    A.    RALSTCN    AND  EIGE    360 

H.S.   UlLF.    JOhN    WILEY    AND    SONS,    NEW    iORK,     L962,    CHAPTER     7         EIGE    370 

EIGE    380 

EIGE    390 

EIGE    hCC 
SOdRGLT INE    EtGSNIN.MV) 

OOUclE    PRECISION    »,R,U,ANCRM,ANRMX,THR,X, Y,SINX,SINX2.CCSX,  EIGE    5 

1  CQSX2.SINCS,RANGE,AAAA,EVAL 

CGMMCN/EGN/A1225)  ,Ul 2  25)  ,R ( 225)  , E VAL12 0  I , AA AA (12 . 12  J , NM10 

GENERATE    IDENTITY    MATRIX 

5    RANGEM.CD-6 

If (MV-1)     10,25il0 
10    IQ=-N 

00  2  0   J-l.N 
I0*IQ+N 
DO    20    1=  l.'J 

1  J- 1 0*1 
Rtl J)=O.C 
IFU-J)     20.15.20 

15    Rtl  JW.C 
20    CONT  INUE 

COMPUTE    INITIAL    AND    FINAi.    NORMS     (ANORM    AND    ANGRMX ) 
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EIGE 

SO 

EIGE 

LOO 

EIGE 

110 

EIGE 

120 

EIGE 

130 

EIGE 

1*0 

EIGE 

150 

EIGE 

160 

EIGE 

170 

EIGE 

ISO 

EIGE 

ISO 

EIGE 

200 

EIGE 

210 

EIGE 

220 

EIGE 

230 

EIGE 

2*0 

EIGE 

250 

EIGE 

260 

EIGE 

2  70 

EICE 

280 

EIGE 

290 

EIGE 

300 

EIGE 

310 

EIGE 

320 

EIGE 

3  30 

EIGE 

3<t0 

EIGE 

6*0 

EIGE 

650 

EIGE 

660 

EIGE 

6E0 

EIGE 

690 

EIGE 

700 

EIGE 

710 

EIGE 

720 

EIGE 

730 

EIGE 

7*0 

EIGE 

7  SO 

EIGE 

760 

EIGE 

7  70 

EIGE   eoo 
25    ANORH-0.000 

00    35    I-liN  EIGE    S20 

00   35    J«1,N  EIGE    630 

IFU-J)     30,35,30  EIGc    840 

30    lA«I  +  (J*J-J)/2  EIGE   850 

AN0fiH«AI*CRM*AI  IA]*A(  JAJ  EIGE    860 

35   CONTINUE  EIGE    370 

IfUNWMl    U5.  Ic  5,40  EIGE    330 

40.  ANO*N»1.414*D50RT  UNCRM) 

ANAMX=ANCArt*RA\GE/3fLCAriNJ 

-      •            -  EIGE    910 

INITIALIZE    INOICATCRS    ANC    CCMPUTE    THREShCLO,    THft  EIGE    92C 

EIGE    933 

1ND=0  EIGE    940 

THR"ANCRM  EIGE    950 
45    THft=THR/CFLOATIN) 

50    L=l  EIGE    970 

55  M-L  +  l  EIGE   930 

EIGE    990 

CCHPUTE    SIN    ANO   COS  EIGE1G0O 

EIGE1010 

60    HJ= (rt*M-H)/ 2  EIGE1020 

LQ=tL»L-L)/2  EIGE1030 

LH=L*HO.  EIGEIOtO 

62    IFIOASSI A(LK) J-TkR)     130,65,65 

65    IN0=1  EIGE1060 

LL*L+LO  EIGS1070 

««»HtHQ  EIGEIC80 

X=0.5*f A(LLl-Af MM) 1  EIGE 1090 

68    Y— AILM)/OSCATIA(Lrt)*A(i.M)+X*X) 

IFU)     70,75,75  EIGE1110 

70  Y=-Y  EIGE1120 
75    SINX*Y/OSiAT(2.0»(l.C-»(i3S0RT<l.O-Y*YU)  ) 

SINX2=SiNX*SINX  EIGE1140 
78    COSX=2S3RT( 1.0-SINX2) 

CCSX2=CCSX*CGSX  EIGE 1 160 

S1NC5  «SINX*COSX  EIGE1170 

EIGE1180 

ROTATE   L    ANO   M    COLUMNS  EIGEUSO 

EIGE1200 

ILQ.-N*(L-1)  EIGE121Q 

IMC=N*IM-1)  EIGE122Q 

00    125    I«1,N  EIGE1230 

IQ=(I*I-I)/2  EIGE1240 

IF(I-L)     £0,115,80  EIGE1250 

80     IF(I-M)     35,115,90  EIGE1260 

85    JM=I  +  H3  EIGE1270 

GO   TO    95  EIGE1280 

90     IH=M*;0  EIGE1290 

95    IF(I-L)     100,105,105  EIGE1300 

100    IL=  I  *lC  EIGE1310 

GO    TO   1 10  EIGE1220 

105    IL=L*IQ  EIGE1330 

110    X«A(IL1*CCSX-At  IM)*SINX  EIGE1340 

AUH)=A I U)«SINX*AUMJ*CC5X  EIGE1350 

AUL)  =  X  EIGE1360 

115    IMHV-U     120,125,120  EIGE1370 

120    ILRMLC+I  EIGE1360 

1MR=1Mw+i  EIGE139C 

X-RULRJ*CQSX-RIIMR)*SINX  EIGE14C0 

R(£MA)  =  AIlLR)*SINX*MI;«A)*CGSX  EIGEl^.10 

«(ILR)=X  EICE142Q 

125    CONTINUE  EIGE1430 

X=2.0*A(L.»)  *SI"*CS  EIGE144G 

Y=A(Ll)*CCSX2+A(MM)*SiNX2-X  EIGE1450 

X=Ai  LL) *SINX2+AIHH1*CCSX2*X  EIGE 1460 

A(L1)E( A(lL  i-AIJIMJ )»31NCS*A(LM)*<C0SX2-SINX2J  EIGE1470 

A1LD-Y  EIGE1460 

A<MM)*X  EIGE1490 

EIGE1500 

TESTS  FOR  COMPLETION  EIGE1510 

EIGE1520 

TEST  FCR  H   "    LAST  COLUMN  EIGE1530 

EIGEL540 

130    IFIM-N)     135.14C.135  EIGE1550 

135    M=M*1  EIGE156C 

GO    TO    60  EIGE1570 

EI3E153G 

TEST    FOR    L    -    SECCNC    FRCK    LAST    COLUMN  EIGE159Q 

EiG£1600 

140    IF(L-(N-1)J     145,150,145  EISfii*lO 

145   L-L*l  EIGE1620 

GO    TO    55  E  IGE1630 

150    IF(lNC-l)    100,155,160  EIGEU40 


155    IND-0  EICElft50 

60   TO  50  EICE166Q 

EIGEU70 

COMPARt    THRESHOLD    WITH    FINAL    NORM  EIGE1630 

61GEUS0 

160    IF(  THR-ANRMX)     «5.U5t«  EIGE17O0 

EIGEi710 

SORT    EIGENVALUES    AND   EIGENVECTORS  E1GE1720 

EIGE1730 

165    IC=-N  EIGE1740 

OC    185    1=1, N  EIGE1750 

IO-I0+N  E1GE1760 

LL«I+<I*I-l>/2  EIGE177Q 

JQ=N*(I-2)  EIGEi7aO 

00    185   J  =  I,N  EIGE1790 

JOJQ+N  EIGE1SC0 

MH*J+(J»J-J)/2  EIGE18I0 

IFIAILL I -A< MM))     170,  185,135  E1GE1S20 

170    X=A(LL)  EIGEU20 

A(LLJ-AIMM)  EIGEUMJ 

AtMMJ=X  EICE1E50 

IFIHV-1)     175,155,175  EIGEiatO 

175    OC    130    K=1,N  EIGE1870 

ILR-IC+X  EIGE1360 

IMR«JG*K  EIGE189Q 

X=R(ILR)  EIGE1900 

R(ILR)  =  R(IMR)  EIGE1910 

180    R(IMRJ=X  EIGE152Q 

185    CCNTINUE  EIGE1930 

RETURN  EIGE1S4G 

END  EIGE1950 
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TO   COMPUTE   CAPTURE    CROSS    SECTIONS    FOR    PROCESSES    GF    THE    FORM 

6*         *         A(NS)  ->         BIN'S)  +         A+ 

OR    THEIR    TIME    REVERSED    COUNTERPARTS. 


CARD  U 
CARD  2: 
CARD  3: 
CARD   4: 


CARD   7: 
CARD   3 : 


ICOOEM 

JCOO£«l 

IPNCK=l 

IRED-1 

LIMIT: 


;h  reaction  begins  to  occur 


NLG  (1615) 

NUMBER   OF    INTEGRATION    POINTS    FCR    G AUSS-LAGUERR E    CUACRATURE 
IXIIXI.WXI  Ix),IX«l,NLG)       (<O20.l51 

ABCISSAS    AND    WEIGHTING    FACTORS    FOR    GAUSS-L AGU ERR E    iUADRATURE 
(LABEL!  I)  ,  I>1,20)       UOA*.) 
PROGRAM   TITLE 

II*     22.    XMAX.    FMB       (8F10.5) 
21:       CHARGE    OF    THE    TARGET 
22:       CHARGE    OF    THE    PROJECTILE 
RMAX:       INTEKNUCLEAR    DISTANCE    FCR 
(FOR    K-R     CAPTURE    RMAX=30) 
FMB:       FMB-0       IF    ENERGY     IS     I\    KEV/AMU 

FMB:       FMB=    MASS    OF    THE    PROJECTILE    IF    ENERGY    IS    IN    KEV 
NCOOE,     ICCDE,    JCCOE,     IPNCh,     IREO,    LIMIT,    MM,     IPNT1, 
IPNT2,    NITP,    NDA6,    NCA6,     IEL  (1615) 

NCOOE:       NC0DE=O      NGN-ITERATIVE    SOLUTION    OF   COUPLED    EQUATIONS 
IF    NCOOE*0      LIMIT,     <M,     IPNTI,     (PNT2,     NITP,     NCA3,     NCAB 
NEED    NOT    BE    DEFINED 

NCQ0E=1       ITERATIVE    SOLUTION   OF    COUPLED    ECUATICNS 
IF    INTEGRATION    DV8R    IMPACT    PARAMETERS    IS    PERFORMED 
IF         UA,    L'B.    XAoT     XBA       ARE    PRINTED 
IF   MATRIX    ELEMENTS    ARE    PUNCHED 
IF    MATRIX    ELEMENTS    ARE    READ    IN 
NUMBER    OF    ITERATIONS    NEEDED 
FCR      V/VE-1/2,1,2;       LIMIT=6,4,3 
MM:       10*MM*1       IS    THE    NUMBER    OF    TIME    INTEGRATION    POINTS 

USEO    IN    THE    ITERATIVE    SOLUTION 
IPNT1-1       FCR    EVERY    NITP    INTERPOLATED    MATRIX    ELEMENTS 

TO    BE    PRINTEO 
IPNT2=1       FCR    EVERY    NGA3    POINTS    OF    EVERY    ITERATIVE    SOLUTION 

TO    BE    PRINTED 
NCA8:       EVERY    NCAB    POINTS    OF    THE    FINAL    SOLUTICN   ARE    PRINTED    IF 

NCAB    IS    NOT    DEFINED    IT    15    AUTOMATICALLY    SET    ECUAL    TO    1 
IEL-1      FCR    A    ONE    ELECTRON    TARGET 
NI,     NEV,    NRO,    NA,    NB,     NT,    NP  11615) 

NI:       6»NI  +  1       IS    THE    NUMBER    OF    TI."£    INTEGRATION    PCINT5 
NEV:       NUMBER   OF    ENERGIES 
NRO:       NUMBER    OF     IMPACT     PARAMETERS 
NA    (MSJ1       IS    THE    PRINCIPAL    QUANTUM    NUMBER    FOR    THE 

INITIAL     (FINAL)    STATE    AND   NEED    SE    DEFINED   ONLY 
IF    A    HYCPCGENIC    MODEL     IS    USES. 
NT    (NP):       NT=1     (NP-l)        IF    A    NO h-HY EROGENIC    MODEL     IS    USEO    FCR 

THE    INITIAL     (FUAL)     STATE.     IF    NT=1     (NP»l)     Th£    *    CARDS 
FROM    PROGRAM    HERMAN    CONTAINING   THE    INFORMATION 
FOR    THE    INITIAL     (FINAL)     STATE    MIST    FOLLOW    CARD    3 
(    FOR    THE    FINAL    STATE    TrtE   <*    CARDS    FOLLOW    EITHER 
CARD    8    OR   CARD    12,    WHICH    EVER    IS    LAST.] 
(EIMPTU),I  =  1,NEV)       I3F10.5) 
ENERGY    POINTS    IN    KEV 
C  ESC  T  J , 1=1, NRO)       ( 3F10. 5) 
IMPACT    PARAMETERS     IN    A.U. 

IF   NT*1    THE    INITIAL    5TATE    INFORMATION    FOLLOWS 
IF    NP=1    THE    FINAL    STATE    INFORMATION   FOLLOWS 

WRITTEN    BY    LAURA    TUf.NELL    (1978) 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

IMPLICIT    REAL*3     (A-H.C-tj 
COMPLEX*  lo    SSiAll,A12,A21,A»2,S8A(153) 
COMPLEX*!*    SAB,HA3,h3A,CI ,PRMP 

C0MHQN/H#TftX/SA8(  ISO)  ,M*B(  150  )  ,HBA(  l'.O)  ,HAA  1150]  ,  Hba(  150) 
COMMON/  i,*PCTl/V,F.HG.F-.'',T,Pl  .NT.N.'iT  tNNTl 
CCMMCN/lfPl,r2/RH50J  ,T IMEI  ISO)  .21 » 12 
COMMON/ IMPCT3/E 0(20)  ,  EI  •*•>  f  (  10  1  ,  NRC  ,  NEV  ,  i_E  V,  IP 3 
,,PR8(  10,  20)  ,  ae.Pbl  io.2Ci  .PR^IM  10.20] 
COMMON/ 1.  ACU/X13  2)  ,i*X  (321  #M.C 
COMMON/ P TNT L/DLMV1 it ,CV 1 3.31 1 ** t tZ 
CCMMCIN/WFA/EALf  ,2A,ACCEF!  lO).AXP(lO)  ,NXA(  10)  ,NA 
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C0NMaN/hF8/EBTA,za,B£GEF(10),BXPll0) .NX  3  I 10J.NB 

COMMON/OPTN/LlMlT.MM,  iPNCM  ,  IREO  .  I  PNI  I ,  I  PU11  ,N  I  TP  ,  NOAB  ,NCA8 

DIMENSION   LABEL(20),XXXlI-5),YYYt25),S^MAl  10  ),Y(4) 
100    FORMAT! l£!5J 
200    FCRHAT(6F10.31 
300    FCKMAT120A4) 

400    FORMAT! •  l',////25X,20A4///l 
249    FCRMATI4E20.15I 

3    FORMAT!  1CI  IX,  1PD12.5)  i 

U*OCMPLX!0.0DO,  1  .000} 

PFl-1.000 

AZ-0.000 

BZ-0.000 

READ! 5, 100)     NLG 

R  EAO!  5,  2  4  -I     (XMXI.fcXUX),  IX* 1, NLG] 
READ!  5,3 OGI     UABcHI  1.1*1.201 
REA0(5,2C0)     Zl,Z2,fiMAX.fM3 
IFIRMAX.  £Q. 0.000)       UMAX  =<*U. 000 
IF(FM9.£C.0.0O0)       FMS=1.000 

REAO! 5, I  00  I       NCCOE,ICCCE,JCODE,IPNCH,IRED, 
. LIMIT,. 4H,IPNTl,lfNT2,NlTP,NCAB,NCAa,iEL 
IF(  IEL.NE.0)       PF1=0.000 
If(NCAB.EO.O)       NCAS=5 
Irl  NOAB  .  i_.  :  J       NCA9=5 
IFlNITP.EQ.O)       NITP-5 

READ  (5,  100)       NI  ,N£V,Nfta,NA,»e,NT,NP,  I  FILE 
REA015.2C0J     (ElMPTtl I rI*liNSV) 
SEA0I5.200I     (  e3(I),I=l,NRQ) 

IF(NA.cC.O)       NA=1 
IF(N8.E0.0t       N9=l 
PRINT   411 
411    FORMAT!  •       NLG,  ( X( IX) ,nX ( I  X ) , I X  =  l , NLG )        •) 

PRINT    100,       NLG 

PRINT   3,  (XI  IX)  ,WX(IX)  ,IX=1,NLG) 

PRINT    414 

414  FGRMATC  Zl , Z2 ,RMAX , FM8       ') 
PRINT    20C,       Zl,Z2,RMAX,fH3 
PRINT    412 

413    FORMAT!'  NCGDE, ICGDS, JCOOE , IPNCH, IREO , 

.LIMIT, MM,  IPNTl,IPNT2,NITP,N0A9,NCA6  '  ) 

PRINT    ICO,  NCGDE.ICCQE.JCCOc.IPNCri.IREO, 

•  LIMIT, MM, IPNTl, I  PNT2 ,Nl TP, NCA8, NCAB 

PRINT    415  

415  FORMAT! «      NI  ,NEV , NRG ,NA , NB , NT.NP,  IFILE   ' ) 
PRINT  IOC,    N[  ,NEV,NfiO,NA,NB,NT,NP, IFILE 
PRINT  416 

+  16  FORMAT!'     [ E  IMP! (  I )  , 1= 1 , NEV  )  ') 

PRINT  200,   (E1MPTI1J.I-1.NEV) 

PRINT  417 
417  FORMAT!'     (£8 1  I  J  ,  I  =  1 , NRC  'I 

PRINT  200,   (ES(I) ,1=1, NRC) 

FNA=OFLC*T(NA) 

FN&=DFi_OAT(,-lS) 

EAL?=21*Z1/FNA/FNA/2.QD0 

E8TA=Z2*Z2/FN3/FN3/2.000 

ACOEFd  |»1.000 

BCQEFU1-1.0Q0 

ACOEFI2)='-J5^RT!3.0D0) 

8COEF(2  )=-J.JCRT(  3.000) 

ACOEFU  >=QSS.RT12.500Q) 

SCOEF(3}=DSQRT(2.5000) 

00    20    1-1,3 

NXA(I)=I 

NXS( [)*I 

AXP(I)=Z1/FNA 

BXP!I)=Z2/FN3 

0LMVUI  =  C.OO0 

00    20    J-1,3 
20    CV<  I  ,J)  =  C.OOO 

IF(NT.E3.0)       GO    TO    22 

REAO  (5,2  001     EALP,FA,0LMV<2) ,(CV(I,2),I=1,3),AZ 

NA«FA 

REAO (5, ICO)     (NX At  I) , 1  =  1, NA) 

REAO I  5, 2  001      !AXPl i ) , I-l.NA) 

REAO (5, 2  CO)     IACCSFI  I)  ,I  =  1,NA) 
22    CCNTUJUS 

IF(NP.E3.0]       GO    TO    24 

REAO 15, 2  CO)     EarA,Fb,0LMV(3),!CV(I,3),I  =  l,3)  ,82 

N9-F8 

READ (  5,  ICC)      INXB(  [J  ,1  =  1  ,N3) 

READ  (  5,  2  CO)     (  ciXP  (  i  1  ,  1  =  1  .'tti  ) 

REAO  I  5,2  CO     iaC0£F(I).I-l.N8) 
24   CONTINJE 

AZ«AZ*1 .CCO 
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B2-BZ+1.C00 

FA-DFLOAUNA) 

FB=DFLOAT(N6) 

PRINT    423 

423    FORM  ATI ■ 

EALP,NA,0LMV(2),(CV(  I 

,21,1-1 

,3)        ') 

PRINT    20C, 

EALP.F A.0L.MV12) ,(CVU 

,21.1-1 

,3) 

PRINT   425 

425    FORMAT! ' 

(NXAII I, 1=1, NA) 

') 

PRINT    IOC, 

(NXA(I) ,1-1 ,NAI 

•  PRINT    419 

♦  19    FORMAT!  • 

IAXP(I),I=1,NA) 

') 

PRINT   20C, 

<AXP(IJ*4-iiNA] 

PRINT    421 

421    FORHAT1* 

UCCEF(I)  ,1-1, NA) 

•) 

PRINT   200, 

IAC0EFU),I  =  1,NA] 

PRINT    424 

424    FORMATl ' 

EBTA,NB,DLMV13).{CV(I 

,31*1*1 

,3)                     *| 

PRINT    200, 

E3TA,F3,01.MV(31  i(CV(I 

.3), 1  =  1 

,3) 

PRINT   413 

416    FORMATl • 

INX8U) ,1=1, NB) 

') 

PRINT    100, 

tNXBt I),1=1,NB) 

PRINT   42C 

420    FORMATl  ■ 

IBXPU) ,1-1, NB) 

■) 

PRINT   200, 

IBXPtH,  1*1, NB) 

PRINT   422 

422    FORMATl ' 

(BCOEF! II  ,1  =  1, NB) 

«) 

PRINT    200, 

(BCOEFl i),I=lfNB) 

PI=DARCGS(-1 

..000) 

TWGPI=2. COO* 

;PI«l  (  .529C-a3)*-*2) 

ZA«Z1 

ZB*Z2 

Z2*ZA 

IFIZB.LT  .ZAi 

Z2-ZB 

Z1=Z2 

EALP-EALP/Z- 

:/zz 

EBTA=ESTe/Z2/Z2 

NNT=3*NI 

NNT1=NNT  +  1 

NT-2*NNT+l 

00    1000     LE>/  = 

'l.NEV 

EKEV=EIMPT(L£V) 

V=OSQfiT(EHEV/FM5)/5.2DO 

SETUP    TIME    ', 

'ECTOR 

TIM£(NNT1)=; 

1.0 

IFINI.EQ.O) 

GO    TO    kC05 

TIM£tNT)=R.1AX/lZA +  1?,}  /V 

HTMIME  INT)/7.0DC/DFLCATINI) 

00    10   J- 1,3 

JI*lJ-l  1*NI 

00    12    1*1, Nl 

J1IM 

IFU.GT.l)    J1I«I*(2*MJ-1)  ) 

TIME(NNT1*JI 

*I)=TI,<E(NNTl*Ji)+JlI' 

«HT 

12    CONTINUE 

10    CONTINUE 

DO    14    I "IpNI 

IT 

timeinnt:-i  ; 

=-TIMElNNTl*Il 

14    CONTINUE 

1005    CONTINUE 

UO    1001     IPB- 

■l.NRO 

RHO=EBl  1  P8) 

R(NNT1)*RH0 

IMNI.EC.C1 

GO    TO    1006 

00    15    I-l,Nf 

IT 

RINSUM  )s05iiP.T(RhO*RHO+V*V*TIME(NNTl  +  n 

•  TIMEiNNTUin 

RlNNTl-IJ-Rl 

INNTltl) 

15    CONTINUE 

1FI IR6D.eO.il    GO    TO    50 
1006    CONTINUE 

CALL    CM4TRX 
GO    TQ   60 

50  CONTINUE 

00    51    I*1,NNT1 

REAOI5.52I     TIMEtl)  ,mAAI II  ,H33( I) 
READ(5,52)    SA81  I) ,HAB ! I ) ,H8AI  I ) 
52    FCAMATC6 (1P012.5) I 

51  CONTINUE 
60    CONTINUE 

IFllPNCH.NE.l)       GO    TQ   61 
DO    62    I-  l.NNU 

PUNCH   52,       TIME(I),t-AM  M.I-eBf  J) 
62    PUNCH    52,       SABl I )  ,  HAS ( 1  I ,H8Al 1  J 
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61    CCNTINUE 

00    55   IM.NNT1 

ii-nt-ii-d 

t  IHEtn-TIHE(IJ«Z2*Z2 

TlM£im=-TIM£IIl 

R(I )*Rl  1)*12 

R(i;)-fi([) 

SAB(  II)=CC0NJG(SA8!I)  ) 

HABUIJ-OCCNJGlHAiM  I]  } 

H8A1II) *CCQNJG!HBAU ) } 

HAAl I I)=HAA( It 

HB8(  111*1-33  1  I) 

55  CONTINUE 
EKEV-EKEV/Z2/ZZ 
V-V/22 
RHQ=RN0*22 

VR=DSCR7  IEKEV/EALP/FM3/2  7.21060-03/1836.0) 
PRIM    400, 1LA3ELU),  1  =  1,20) 
PRINT    91 

91  FORMAT! '  TIME...R  SAB. .  .HAB. ..HBA         HAA...HBB         '//J 
DO   92    IT=1,NNT1 

92  PRINT    93,    T  I  ME  I  I  T  J  ,«  (IT  )  ,  SAB  1 1  T  )  ,H  AB  ( I  T  )  ,  HBA!  IT  :  .HAAUT  >  ,  F.381I  T  ) 

93  F0RHAT12(1X,F10.5),5X,3(1PDU.4,  IX  ,  1  PCI  1 .  4,  2X  J ,  3X  ,  2UPD  1 1.4  ,  1X1  I 
PRINT   94,    Z2,EK.EV,V,  Vft.AHG 

9*    FORMAT!//'       SCALING    FACTOR    ='1F6.2,t     SCALED    QUANTITIES    i     E(KEV)*' 
.1PD11.4,*    V    =',1PD9.2,*     V/VK    *,,1PJ9.2,'    RHC   =',1P09.2//) 
IF(NCCOE.Eq.l)       CALL    CGUPECINT) 
IF(NCCOE.NE.O)       GO    TO    96 
PRINT    97 

97  FORMAT (•  1',///'     TI.ME...R  CA. .. CB. .. PRCS ..  .UNI T       '//) 
Y(l)=l.OCO 

Y121-0,0EJ0 
T(3)=0.JD0 
Y(4)=0.0C0 

CALL    DIFEQI  TIME!  1)  , !  TIME  ill  *ri  ME  [  2) J /2 . ODC, Y, 0.2000 ,4 , 1 .□-« ) 
DO    90    IT=2,NT 

CALL    OECtTIMEtl) .TIMEIIT) ,  Y  ,HH,4, 1 . 0-6 ) 
PROB=Y(  3  )*YI3)*Y!*J*YI4l 
UNIT=PftC3+Ym*Y(l)+Y!2l«Yt2)-1.0D0 

UNIT-UNIT+-2.OD0*SA3(  I T) * OC^PLX I Y ( 1 ) ,-Y ( 2)  J'XNPLX  1 Y  (  3  )  ,  Y  14)1 
,/CDEXP!CI*T I  ME  I  I T  J  *  < EALP-E&TA) ) 
90    PRINT   93,    TIME!  IT)  , RUT)  ,(Y  II),  1  =  1,4)  ,PROB, UNIT 

98  FORMAT  I 2I2X,Fl0.5],6X,2(iPDi0.3,lX,lP010.3,2X),2X,2(lPD10.3,lX)) 
PRBILEV, IPB)=P«03 

8RP8!l£V,1P3)=PkCE)*E5(IP3) 

PRMP(LEV,[P3)=DCMPLX(Y<3J,Y!4)) 

PRINT   99,    PRBlLEV,  IP3  ) , 3SP3  I  LEV , IPB) .EIMPTlLeV) ,£3( IPB) 

99  FORMAT!/'    PRCB    -'.1PC9.2,'     PROS    X    RHC   =  ',1PQ9.Z,'     AT    EIKEVI    =', 
.F10.2,'     RHO    =*,F8.o//> 

96   CCNTINUE 

IFUCCOE.E0..01       GO   TO    83 
PRINT    8  1 

81  FORMAT!  '  1  •,///' TIME ft  All..... A 12 A21 A22V) 

DO    82    I*NNT1,NT 

5BA(I)  =  DCCNJG(SAE  11)  1 
S$*l*0OO-SA9(I)*S8AU] 
All=-EALP*(riAA( I  )-S  Afl(I)  *H8  AUJ  1 /S5 
A12=(hA3(I)-SAai [J»H&aiI))/SS 
A21-(H3AII)-SBA(I)*HAA( I11/5S 
A22--EBTA+!  H35!  I)-S8At I )*HA6( 1 1 1/SS 
PRINT    3,     TIME! I  I , ft  II)  ,A11, A12.A21, A22 

82  CONTINUE 

83  CCNTINUE 
EK.EV=EKEV*Z2*Z2 

RHO=RHO/  11 

DO    56    IM.NNT1 

II=NT-(I-1) 

TIMEIU  «TIM£II)/Z2/Z2 
TlHEt  II  )=-TIMEl ii 
R(I  )=R(I  1/2.2 
R(N l«ftl I) 

56  CONTINUE 
1001    CONTINUE 

IF( 1C03E  .EQ-O)     GO    TO    1000 

00    85    I  *  l.NRO 

XXXUJ=EB{i  ) 

PF2=1.00  0-PF1«?R8(LEV,I) 
85    YYY!  I  )=&RPB£LEV,  H*PF2 

CALL    AREA(XXX.YYY,NRG,AA) 

SGMA1LEVWTHGP1  *AA 
1000    CONT  IhUE 
101    FORMAT! I  OX, 1615) 
201    FORMAT! 1CX.3F10.5) 
333    FCRMAH  10X.9!  U,  1P012.5)  ) 
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00   402    UK-lr4 

PRINT    301,     (LAQELill , 1=  L.20), IFILE 

PRINT    411 

PRINT    10  1,       NLG 

PRINT    33  3,       (X(IX),KXUX),IX-1,NLG) 

PRINT    414 

PRINT    20  1,       ZA,Z3,RHAX,FH8 

PRINT    413 

PRINT    10  1,  NCCOE,)CC0£,JCCDE,IPNCH,IREQ, 

.LIMIT.HM.IPNTl,  I  FNI2  ,N  1  TP  ,  NCAli  .NCAfl 

PRINT    415 

PRINT    101,  HI  ,NEV,NRG,NA,N3,NT,NP,IFUE 

PRINT   416 

PRINT    201,       IBIHPTd  )  ,1-1  ,NEVJ 

PRINT    417 

PKINT   201,       (Efl(I),I=.l,NRCI 
301    FORMAT!  '  I*  ,  IQX.20A4, •         FILE    NO.    -',16) 

PRINT    401,     ILA6ELI  I), 1-1,20) 
401    FORMAT!'     • , ////25X.20A4/// ) 

DO    10000    LEV-l.NEV 

PRINT    10QOI 
|0001    FORMAT: 1CX, '  RHC  PROB. AMP. .. .PROB.. .. PROS    X    SHO'//) 

00    10OO2    IPa=l,NRO 
10002    PRINT    10C03,    £B( I  PS) , PRMP< LEV , I  PS) , PRB ( LEV, IPB) , BRPB(L£V , IPB ) 

|0003    FORMAT!  IGX,F10.5,5X,2tl?OU.4,lX),2f2X,lPCll.M) 

PRINT    10C04,     SGMA(LEV),EIMPTil£VJ 
10004    FORHATI/20X.  •       TOTAL    CROSS    SECT lON/ELECTRCN (CH**2 )    -'.lPO^.i, 
«       AT    ElKEV)    =' .0PF12.5///1 

10000   CONTINUE 

402   CONTINUE 

STOP 

END 

SU3RGUTI\E    CMATRX 
IMPLICIT    REAL*8< A-H.C-2 I 
COMPLEX*  16    C.CI  .T.X.TCOSX.TSINX 

C0MPLEX*i6       SA3I.HAEI iHBAI ,    SAS j ,HA3 J ,H3A J ,     S ABX, HABX ,HB AX 
C0MPLEX*16      SAB?,MADP,haAP,     SASO , HABC ,HSAQ,     SAB,HAB,MBA 
COMPLEX*  16    CSAfll 15,151 ,GrtActl5, 15 ) , GhSA 1 15,  15  ) 
COMPLEX*  16    FcM(3,i5),GL.^(3,l5),PLll5),JH  15) 
COMMON/ IX  PC Tl/V  ,R*0,RM,T1 ,PI , NT ,NNT,NNT1 
C0MMCN/I>'PCT2/R1!150J  ,TI ME ( 150 ) . 21 » Z2 
COMMON/ !HPCT3/Eo(20),EIiPTI 10 ) ,NRO, NEV,LE V,  IPS 
COMMCN/MATRX/3A31150) ,HA3 [ 1 50) , H3 A ( 150 ) ,riAA [ 1 50 ) , hBS(  150) 
COMMON/LJGU/XX!32) ,«X(32) ,NLG 
COMM0N/PTNTL/0LHVl3),CVt3,3),AZ,BZ,Zl3) 
COMMON/ WFA/e ALP, ZA.ACC£F 110 l.AXF 110)  ,  NX  A  t  10  ) ,  NA 
COMMCN/hFB/e3TA,Z6,3CC5F[  10},BXPU0]  , -i.(3!  10)  ,  NB 
COHMCN/CCNST/A! 15,15)  ,Dr ! 20 ) , DG (20  ) 
DIMENSION   VV15,3j,Pl3),0PCS(3l,DNEG!3),CLKt3),DPX!3),NM(3) 


NAl-NXAtNA)  +1 

NBl-NXSlNBl+l 

NHX-NAl+NBl 

NH3  =  NMX  +  2 

C-DCMPLX!O.0DO,  0.000) 

C I  =  OCMPLX( 0.000,  1.0D0I 

CR-OCPPLXil .000,0.000) 

PLtlJ-C?. 

GHA2=V*RHC/2.000 

P(l 1-0. OCO 

P(2I-1.0C0 

(M3I  — 1.000 

Z(l  1=0.000 

2(2)«ZA-AZ 

Z(3)=23-EZ 

DLMVI 1) =0.000 

00    14   J=l,3 

14  CV( J,l)=0.0OO 

IF!  IPB.GT.l)       GO    TO    499 
IF(LEV.GT.l)       GO    TO    499 

0F( ll-O.COO 
DF(2I=1 .COO 

0G( 11=1.000 

CG(2)*1.CD0 

00    15    1-2,19 

0F(  I  +  U=CF<  1 1  +  1.000 

15  DG(  I  +  ll-CF!  I+1)*0G<  I) 
DO    16    I -UNA 
NI-2*NXA  111 *: 
Al-I2.OD0*AJ<P(  I  )  l**Nl/QG(NI  ) 

16  ACO£F!I  1  -ACJtF!  I )  *.)3CKT  I  0A3S  !  Al )  ) 
00    17   J-1.N3 
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NJ«2*NXS(JI+1 

Bl"  (2.0D0*SXP(  J)  )»»NJ/C10(NJJ 
17   8COfcF(Jl-BCOf.FIJ)»OSURT<0ABSiam 

AU,1)«1.0D0 
At  2,21=1-000/3.000 
DO    20   K»2,NM3,2 
AK«0F(K.*1) 

AiK.+  l.l)-L.OOO/(AK*l.0DO! 
KK-K+1 

AKK-OFUKH  ) 

A(K,K+U21*1.0i)0/i  \K~*lr---10) 
DO    20   L~2.KK,2 
AL-DFU+I) 

A(K*l,L*l)  =  -I2.000+AK-AL)*AlK*-l,L-l)/(l.OOQ+AK+AU 
LL*L*1 

ALL=OF(  LL  +  U 

A(KK*l,LL*l)=-l2.000  +  AisK-ALLl«A(K.KUfl.L-L)/(l.ODO*A)';K*ALI.) 
20    CONTINUE 

499   CONTINUE 

DO    500    IT'l.NNU 

GMA1=V*V*TIME( IT1/2.000 

R2-R1U  Tl/2.000 

SABI*C 

HABI=C 

HMI*C 

DO    510    1  =  1, NA 

NP*NXAl I )*1 

SABJ=C 

HABJ=C 

HEAJ=C 

DO    520    J«1»NB 

NQ=NX8(  J  1  +  1 

KMM*NP*K£+1 

OPQSt*<  AaPUJ+BXPIJ]  )*R2 

DN£G1={AXP( I1-BXP(J))»R2 

5ABX-C 

HA8X=C 

HBAX=C 

DO    530    IX»=1 ,NLS 

DO    9   M*l«3 
DPOStMI*aPO$l+DU4V<M)*R2 

0NEG(M)=C.\EGI*0LMVM)*P2*PJK1 
OLM(H)=l  .000+XXUXJ/CPCS1.1] 
OX-0.000 

I FIDPCStMl.LT. 1.30*02)       OX  =  CEXP  (-DPCSOU  ) 
OPXlM)  =  CX,'QPGS(H> 
0N<=  0.000 

IF1DABSI CNEGIH)) .LT.1.3D+02)       ON=DNEGl*) 
TCOSX=OCHPcXtortAl*C<LH(M)  ,QNJ 

TSINXaDCMPLXOSJRTtOL.Ht  II* DLM(M)-1.0CO )*GMA2,  0.0001 
RD=R2*DIMMI 
I2*Z(M) 

VVl 2,M)=ZZ*(  1.QOO+RLMCV1 1,«)+R0*(CV(2iM)*R0*CV(3iM) 1  J) 
VV(3,M)  =  PM)*ZZ*R2MCV(  I ,  M  1  +R  0  *  (  2.0QQ*CVl  2,  H  I  *R0*3.  000-C  V  (3  ,M  j  1) 
VVl 4, Ml •2Z*R2»R2*lCVl2iM)*RO«3.000»CV{3*M)J 
VV<SiH)-P(;U*2Z*A2*R2*R2*CVf3,*l 
I F t (M.GT.l) .ANjD.IOUIV (Ml .LE.i.OD-08) I     GO    TO    91 
T-COSuATlTSINX»TiINX+ICCSX*TC0SX) 
X=TCGSX/T 
JL( 1)=C0SIN(T)/T 
JL(21=tJLlLl-CDCCS!Tll/T 
PL(2)=X 

FLH(M,1)=A!  l,l)*JLUJ«PLlll 
FLM<M,2)=Al 2, 2  J  * JL( 2  J *PL ( 2  I »3. 00Q*C  I 
DO    10  M*2»NMM>2 
FN-DFIN+I) 

Jt_CN+ll  =  t  2.00  0*  FN- l.OCO)*JL(N]/T-JLIN-l) 

PUN+1)  -  l(2.0yQ»FN-l.G03l*X*PUN)-tFN-1.0CO  )*PL(N-l)  1/FN 
FLH(rt,N+l)=A(N*l,l)*JLt LI*PL(11 
Nh»M+l 

FNNOFI.Nh+l) 

JLlNN+1  J»<2  .000*FNN-l.000)*JL[NNJ/T-JL<f.N-l) 

PLINNtl  )  =1  |  2  .ODO«FfJN-1.000l*X»PL(f,N)-<FNN-l.OCO)»PL!NN-l)  1/FNN 
FLH(M,NNtl)=CI*3.0OC*A(NN*lt2)*JH2J*PLl2J 
00    10    L=2,NN,2 
Af.<=0F<L*  1) 

FLM(M,N*  1)  =  FLM(M,N*1| H 2 . GOC*Al+ 1. 000) 
-    *  *AtN  +  l,L  +  l)*JL(L+H  "PLlLi-i) 

LL«L*1 
ALl-DFUl  +  1  1 
FLMlX,NN*ll -FLHIK.W4+11+C] • (2 .O0O» ALL+ 1 .000 1 
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»  •AtNNtl,LL+lJ*JL(LL*lJ*PL(LL+t) 

10    CONTINUE 
CO    TO    9 

91  CONTINUE 
Nl-NMM+1 

DO    92   N«1,N1 

92  FLM(H,N)-FLM(1,N) 
9   CONTINUE 

100    CONTINUE 

NMX«-NP*NC-2 

DO    35   K»  l.NMX 

00   36    1=1, NHX 

GSA8(K,U=QPXU}»FLM(1,L) 

GHABIK.l  )=AZ*GSAaU,L  I  +QPX ( 2  I » ( VV( 2, 2) *FLHI 2. U  +  VVt 3 , 2) *FL* 12 , L*l J 

♦  VVU,2)«FLMl2.L  +  .>)*VVl5,2)»FLMt2a+3)  ) 
GH8A(K,L]*BZ*GSA3U,U  +  0PX{31*(VVl2.3)*Fl-N<3,U*VVI3,3)»Fm<3,L»l) 

+VV('r,3)«FLMl3,L*2)*VV(5t3)»FL'H3,l.*3)  J 

34  CONTINUE 

CSAB(K,HNX*l)  =  OPX(n*FLHU,KNX+U 
00    37    L=l,3 
37    QPX(  L)  =  Qlf4lLl*0PXlL) 

35  CONTINUE 
NNX-NMX+1 

DO    38   L=I,NHX 
33    GSABINHX  ,L)  =  DPXtl)*Fl_MU»U 


SASP=C 
HA8P-C 
HBAP=C 

DO    540    IP=1,NP 

SASQ«C 

HA3G=C 

H8AQ=C 

01-1.000 

DO    550    IC  =  1 ,NQ 

N1=NXA(  I  J+NX31 J)-iP-I3 

N2-IP+IQ 

CCQ*DGI NC)/0G(ia)/0G<N5-ig+l)*Cl 

S4£a=SASC+C-5AS(  (M+2)  H,(N2-2)*-l)*CCa 

IF1NI.EQ.-2)    GO    TO    551 

HA3Q=HA3(;tGHAa(  (  M  +  l  J +1 ,  t  N2-2  J +  1 )  *CCC 

HBAQ=ri6AC+GHaA(  (NU1)  *1.  I N 2-2 )  +  l) *CCQ*1  OF  LNQ)  -0F(  IQ)  l/OFfNQ) 
551    CONTINUE 
550    Q1=-Q1 

CCP=0G(NF)/0G(IP1/CGIN»-IP+1) 

SA8P=SAEF+SAES*CCP 

HA8P=HAb?«-HA£0*CC?*OF<NP)-CF(  IPJ  J/0F1NP) 

h6AP=HBAP+M£AiJ*CCP 
540   CONTINUE 

SA8X=SAeX*SA8P*WX(IXJ 

MABX=HAa X+H A 6P**X  I IX) 

HBAX=HSAX*H3AP*bX( IX) 
530    CONTINUE 

CCJ*BCaeFUI*lR2**<NXA(I)*NX8U>)J 

SABJ  =  S4BJ*-SAaX*CCJ 

HA3J*HA8j*HAaX*CCJ 

HBAJ=HBAJ+H3AX*CCJ 
520    CGNT INUE  __ 

CCI=ACOEF(I) 

SABI=SADI+SASJ»CCI 

NAei  =  HACI+HA3J*CCI 

MaAI«HBAl*HSAJ*CCI 
510   CONTINUE 

SABIIT)*SASI*R2 

HA&(  IT)  =■- riA3I/Z2/Z2 

HBA1 IT)=CCONJGl-HeAI i/ZZ/ZZ 
500    CONTINUE 


RETURN 
END 

SUBROUTINES    Oi  AG(CCEF,CXP,NXCiNCtMV.HHl 
IMPLICIT    REAL*3U-ri,0-2) 

CCMMCN/IMPCTl/V.fchO,R.«,Tl,PI,NT,f;."JTf.".NTl 
COMMON/ I. IPC T2/R  It  150  ) ,T IME f 150 ) , Zi  t Z2 
COMMON/ PINT  L/0L.1VI  3),VCl3,3).AZ,riZ,Zl3) 
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COMMCiN/CCNSr/Hl  15  ,  15  1  .OF  t  20J  ,  OG  (  20  » 
DIMENSION   CUEF1NC  I  ,CVP(  NO  , NXC(NC) 
DIMENSION  F(20l  ,FF  (  20  I  ,  Gf  :0  J  ,  GG  (  20  ) 
DIMENSION   C  V( 3J ,HNI 150) 

C-0.000 

ZZ1-BZ 

IF[NV.EQ.2]       ZZl«AZ 

ZZ2-Z1NV1 

DLH«0U4V (NV 1 

CVU1-VC  tl.NV) 

CV(21-VC(2,NV) 

CV(3)«VC(3,NV) 

00    100    IW.NNT1 

R2*R1(IT  I/2.0DO 

HI-C 

DO    200    1=1, NC 

HJ»C 

NI-NXCt I) 

NU*N1+1 

00  300   J«I,NC 
HP=C 

NJ-NXC1 JJ 
NH-NI+NJ 
NM3-=NM*3*1 

A«(CXPt  I  )+CXPU))*R2 

8-A 

AA=A*DLM*R2 

B6-B-DLH»R2 

GX«C 

GGX-C 

FFX-C 

IF((2.QD0*B(.LE.1.20C+O2)       GX=D£XP 1-2 .000*5  ) 

1  Ft (2.0DC*aB).LE.1.2J0+02)       GGX=QEXP(-2 -0C0*8fl) 
1F((6B-AAJ.LE.1.0D*02J       FFX=0EXP  I  BB-AA] 
F(l)*l.CCO/A 

FF( 1)=FF*/AA 

6iii»U.0D0-exj/a 

GGtl)=l l.ODO-GGXl/BS 
GH--1.0DC 
NM3*NM3+2 
00    13    K=2.NM3 

FlKI«(OFm»FU-l)*1.0DO)/A 
FF(JU  =  (DF(tO*FF(K-l}+FFX)/AA 
G(K]-10F1K)*G1«-1)*GM-GX)/B 
GG(K]*(DFUJ*GG(K-l)*GM-GGX)/33 
13    GK=-GM 

DO    400    IP=1,NU 

MO-C 

00    500    K  =  1.NJ 

N-NH+2-IF-13 

m=ip*io-i 

QQ=FF!N)  *  GG  t  M  J 

Ql-CV(l)»tFF(Ntl)*GG(M)-FF(N)*GG(«+l)) 

Q2»CV(2  )  *iPf*(N*2)#GG(MI-2.O0O*FFtN*ll  *G."'M*LJ  *FFt  N  I  *GG(  M  +  21  I 

Q3=CVm*frF(N*3J*GGM)-3.0D0*(FFt  N*2)«GGIHH  J 
-FFIN*1)*GGIM*2]I-FFIN)*GG(M*3)  ) 

G*ZZ1»F  i  &]*CtM]+ZZ2*(GO*R2*(Ql*R2*(Q2+R2»C3IJ  ) 

CQ=OG(NJI/DG(  Ii)/DG(fiJ-10+l) 

HQsMC*O*C0 
500    CGNT1NUE 

CP=OG(NI  I}/jGnPJ/DGINI-iP+2J 

HP=HP*HQ*CP 
400   CONTINUE 

CJ-COEFI J)*(ft2**NM) 

HJ=HJ+HP»CJ 
300    CONTINUE 

CI=COEr(  I) 

HI=HI+HJ»CI 
200   CONTINUE 

MHl  ITW-H/2.000/Z2/Z2 
100    CONTINUE 


SUBP.OUT  Ih£    AP£A<  X.Y.N. 

IMPLIC1 T    REAL'3     CA-H.C 

DIMENSION    XI25I  ,Y(25) 

JNDEX=0 

AA«0. 

NN=N+1 

Y(NN)=0. 

XlNN) =2=X(N)-X!N-1) 

Xl-O. 
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¥1-0. 

1-0 
70  CONTINUE 
X2-XII+I) 
V2-YI I*  t  J 
X3-X(I+2> 
Y3*Yll*21 

01-  CV1-Y  21/  (X1-X2J 
D2MY2-Y3)/IX2-X3J 
A. (01-021/1 X1-X3J 
B-Dl-A*( X1*X2] 
C"VI-A*X1*X1-3*X1 
IFI INDEX. NE.O)     X1«X2 

AA*AA*A*tX3**3-Xl»*3)/3*fl*(X3*X3-Xl*Xl)/2*C*lX3-XU 
IFHI+2)  .GE.NN)     RETURN 
X1«X3 
Y1-Y3 

IFIU+21  .GT.NNI    GC    TO    80 
CQ   TO   7  0 

80    1=1-1 
X1-X2 
Y1»Y2 
IN0EX=1 
GO   TO   70 
END 

SUBftOUTINC    DERIT.Y.YP) 
IMPLICIT    REAL*3     (A-H.O-Zl 
COMPLEX* 16    SS.A.e.ACCT.BCGT.ENT.CMI 
COMPLEX* It.    S12»i21thl2,H21»SA3,S8A,HAB.HBA 

CCHMCN/MATRX/S 12(150) ,ri 12  t  150 ) ,  H21 (1 50) ,H 1 1 1 150  I  ,  H22I  150 ) 
COMMCN/IM?CTl,/V,RHC,aM,TZ,Pl,NT,NNT,NNTl 
CCMMGN/WFA/EALP.ZA 
CCMMCN/WFE/EBTA.ZB 
CGMM0N/I«?CT2/R(150)  ,TIHEI  150) 
DIMENSION   Z(150),ARGI     5),VALi     5),YU),TPU) 

CHI=OCMPLX( 0.000,-1.000) 
DO    301    1=1, NT 

301  ZU)  =  S12  tl) 

CALL  DATSMI T,TIM£,Z,NT,I ,ARG,VAL,5) 
CALL  0ALIIT,ARG,tfAL,Zl,5,l.E-5,I£R) 
DO   302    1=1, NT 

302  Z(I  J«S12(It »CMI 

CALL    CAT5K(T,TIME,2,NT,  1,ARG,VAL,5) 
CALL    DAL  1 1 T, ARC, VAL, 22, 5,1. £-5, IER) 
SAa*DCMPLX[Zl,Z2J 
DO    303    I-i.MT 

303  Zm*H12(I) 

CALL  CATSM(T,TIME,Z,NT,l ,ARG,VAL,5) 
CALL  DALIIT,ARG,VAL,Z1,5,1.E-5,IER) 
DO    304    1=1, NT 

304  Z(M>H12{1)*C.MI 

CALL    0AT5.MIT,TIM£,Z,NT,1,*RG,VAL,5) 
CALL    DALI(T,ARG,VAL,22,5,1.E-5,IER) 
HAB=0CMPLX(Z1,Z2) 
00    305    1=1, NT 

305  Z(I)  =  H21  II) 

CALL  CAT  SMI T.TIME, Z, NT, I , ARG, V AL , 5 ) 
CALL  0ALllT,ARG,VAL,Zl,5,l.£-5,  IER) 
DO    306     I*l( NT 

306  Z(I)=H21  1II*CMI 

CALL    OATSMf  T , TI ME , Z ,N7 , 1 , AR3 , VAL , 5 ) 

CALL    DAL  I(T,  ARG,VAL,22,5,  i..E-5,1ER  J 

HBA-DCMPLXI Z1.Z2) 

DO  307  1=1, NT 
3C7    ZU)=Hl  I  (IJ 

CALL    DATSM(T,riME,Z,NT,l,ARG,7AL,5) 

CALL    DAL  I  IT , ARG , VAL, Zl, 5, I .£-5, IER) 

HAA=Zl 

00  308  1*1, NT 
308    ZU1-H22  II) 

CALi.    OATSMt  T,TIME,Z,^T,1,ARG,VAL,5) 

CALL    DAL  I(T, ARG, VAL ,Z 2, 5 , i.E-5 , IER) 

H3B*Z2 

SSA=OCGNJGt  SAe) 

ENT*OCMPLX( J.OjO, T*< 53TA-E ALP ) ) 

SS»(1.0D0-$AB*Sa*l*t 0.000, 1.000) 

SS-l.OOO/SS 

A=OCMPLX (Yl 1 ),C (2) ) 

a«0CMPLX(Yl3) ,1 (41 ) 

AOOT*SS*U*(HAA-SAB*HBA)+3*IHAa-SA3*ri03J*COexP(ENn  ) 

BD0T=SS*  (ii*IHBS-56A»HAB)  *t>*  I  rtLA- SEA'HAA  )*CQEXH  -£NT  )  ) 

YP( 1 )=AOCI 

YPI2  )-AOCT*CMl 
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YP131-BO0T 

YP(M«ODCr*CMI 

RETURN 

END 

subroutise  coupecini 

implicit  real*8  u-h.q-zl 

complex*  16  gg,sum,a.x,ent ,u,cmi ,prmp 

CCMPLEX»16    XABlo00),X3A(&00) 
COMPLEX*  1©    CAi  -,..:!,..■■  i  ■,-::,::■..]  A  (600  , 
C0*PLEX»16    S12,i21,nl2,H21 

COMPLEX*  16    SA3(600),SeA(600),HAB(60a),HSA16CO) 
COMPLEX* 16   ALP(bOC),aTA(cOO),AAi600),36i6  0a),CAl600J ,CB(6G0) 
COMPLEX*  lo    V1,V2,Y3 

COMNCN/.4ATSX/S12U50I  ,H12  I  150  )  ,  H21  ( 150  J  ,HU  ( 150  )  ,  H22  1  150  ) 
C0MMON/OPTvJ/LI1HIT,M,M,IPNCH,;.SE3,IPNTl,IPNT2,NITP,N0Aa,NCA8 
OIMENSICfs    HAAl60JJ.h?9I^00) 

DIMENSION   ARG(10),VALU0I , T I  ME ( 600 ) , R 1 600) , Z( 1501 
COMMON/ IMPCT1/Y,RhO 
COMMON/ I CPCT2/RAI 150)  ,T(150) 

COMMON/ I MPCT3/E 3(20) , EI  MPT  I  10) , NRO ,NE V , LE V, IP B 
,. PR  5 (10,20)  rERPE  110,20) ,PRMP( 10,20) 
COMHON/WFA/£ALP*ZA 
COMMGN/hFe/EBTA.ZB 


CMI-DCMPLX! 0.000,-1. 000) 
SET    UP    TIME    VECTOR 

n-mi 

H— 16.00  C*T  1/1 3  1.  OOC*MM) 

K-0 

HMleMM+1 

92  CONTINUE 

00    91    I *1,MM1 
91    TIH£(K*MM+n=Tl  +  (I-l)*H 
K-K+l 

IF(K..GT.4)    GO    TO    93 
T1=TINE(K*MM+1) 
M-H/2.C00 
GO    TO    92 

93  CONTINUE 
'   NNT-5*MM 

NNTl=NNT*l 
NT-2*NNT+1 
00   98   I  =  1,NNT1 

ii=nt-(  i-i) 

TIHEIII  J—TIMEU) 

R(I)  •DSQRT(RH0**2+tV*TIHEI 1 11**2) 

R<1I)-R(  I) 

98    CONTINUE 

EKEV»25*V*V 

00    500    K«1,NNU 
DO    301    I«1,N 

301  Z(I1=S12(I) 

CALL    DATSM(TIMEU)  .T , Z,  N , 1 , ARG. V AL , 5  ) 
CALL    OALI    i 7IME(K),ARG,VAL,Z1,5,1.£-5,IER) 
00    302    1  =  1,:. 

302  Z(I)=S12  II J  *C.Hl 

CALL    CAT  S.lt TIMEllU ,T,Z,N,1 ,ARG,VAL,5) 
CALL    OALI    tTIMEU)  , ARG, VAL , Z2 r 5,  l.E-5,  I  ER ) 
SAfl(K)=DCMPLX(Zl,Z2) 
DO    303     i-i,', 

303  ZIH=riL2  in 

CALL    CA T SMI  TIME IK) ,T , Z,H , 1 , ARG , VAL  ,  5  ) 
CALL    DALI    lTIME(K),ArG,i/AL,Zl,5,l.E-5,IER  j 
DO    304    I -1,'* 
30*.    :<I  )*H12  (I)  *CMI 

CALL    DAT  SMI  TIME  U)  ,T  ,  L,  N.  1 ,  ARG,  V  AL  ,  5  J 
CALL    OALI    ( TIMEIK)  , ARG, VAL, Z2,5, l.E-5, IER) 
HA5U)=DCHPLXtZl,  111 
00    305     1=1, -N 

305  Z(  I  I-H2  1  m 

CALL    DAT  SM(T[MElK),T,;,N,i,APG,VAL,5) 
CALL    DALI    t TIMEU)  ,  ARG, VAL  ,21 ,5 , 1 . £-5 , IER) 
00    306    1  =  1,  N 

306  :tI)«H21 II) *CMI 

CALL    DArS.-*(TIMEfM,r,Z,N,l,ARG,VAL,5) 
CALL    OALI    tTIHCIKl|ARG«VAL(Z2tS(l.e-SrI^RJ 
HeA(KI=DCMPLXlZl,Z2) 
DO    307     1*1,  H 
3C7    Z(I)=Mli  (I) 

CALL    OATSMI  TIME  IK  )  ,T,Z,H  ,1  ,A?.G,VAL,5) 
CALL    CALI     ITlMc(K) , ARC, VAL , Zl, 5, l.E-5, IER) 
HAAU)*Zl 
DO    308    1  =  1, N 


;''■: 


3C6    Z(I)«H22  (I) 

CALL    DAI  .'Hi  r  i  -.;■:;■.■,:,■.,'.  ,ARG  ,val, 5) 
CALL    OALI    lTIMElK),ARG,VAL,22,5,l.e-5,IERJ 
H9B1KI-Z2 
500   CONTINUE 

IF( IPNT1.EQ.0)    GO    TO    1 L 
PRINT    520 

520  FCRMATC     • , ////50X, ' INT ERPOLATEO    MATRIX    ELEMENTS'///) 
PAINT    521 

521  FORMAT!  '  TIME. ..A         SA9. . .HAS. . . HE A. .  .HA A.,  .HB8       *//) 
00   507    I-l.NNTl.NlTP 

507  PRINT    50B,TIM£(  It.ftU  I.SABU)  ,HAB(U,K3A(!)  .HAAtU.HBSI  I  I 

508  F0fiHAU2UX,F10.51,5X,UlP0U.4,  IX  ,  IPO  1 1.  <.,  2X1 1 
11    CONTINUE 

00    600    I-l.NNTl 
II-NT-I  l-ll 

5Afi(  m  =  CCCNJG(SA9f  I)  ) 
SBAI 1)=0CCNJGISA31  [)  ) 
SSAI II)=DCONJGt  SBAII) ) 
HAB( II ■  =CCONJGI HA31 I  I ) 
HBA(Il)  «DCQAJGlH3Aim 
HAAU1I=J-AA(  I) 
H3B1 II)*FBS( I) 

SS-1.00  0-5ABII)»S3At I) 
AA(  I  )=( HAAt I I-SA31 I ) *HBA( I) )/SS 
AA( II )=OCCNJGt AA( I) ) 
BBt  I)-(H8S(  I  ]-SaAtI)*HA3{n)/SS 
600    8&(II)  =  0CCNJG(5eUi> 


NTl=NT-l 

DELTA (1  J =(0. COO, 0.000) 

ALPt 1)=10. 000, 0.000) 

BTA(1)»10.QDO, 0.000) 

00    700    J=2»N71 

X1»TIM£(  J-l) 

X2-TIMEIJ) 

X3=TIME( J+l) 

Y1=-AA(J-1) 

Y2-AAIJ) 

Y3-AAU  +  1) 

alp iji= alpt j-1)+sum(x1,x2,x3,y1,y2,y3)  ' 
yi-sbu-u 

Y2=8B(J ) 
Y3*33U*1) 

BTA|J)=8TAI J-1)+SUM(X1,X2,X3,Y1,Y2,Y3) 
TOO    D£LTAIJ)=ALPIJ)-BTAIJ> 
X3«TIME(NTl 
X2-TIMEINTU 
X1-TIM5) \Tl-l) 
Yl-AA(NT) 
Y2-AA1NT1) 
Y3-AAINT1-1) 

ALP(NT)=ALPINT1)+SUM1X1,X2,X3,Y1,Y2,Y3) 
Yl-BB(NT) 
Y2=BB(NT1) 
Y3=39(NT1-1) 

BIAINT) -STAINTI I +i JM 1X1 , X2 , Xi , Y 1 , Y2, Y3) 
0ELTAINT)=ALP!NT)-3TAINT) 

DO    BOO    K»1,NT 

0£LTAI*)=OELTAI  Kl  -TI  ."El  .<)  *  1  EALP-E8T  A) 
SS-1.0D0-SAflt<J *SBAIK] 
Y3-C0cX?(DELTA(M/C«I) 

XAailC)"(HA3UJ-iA8tK)»MB3(K))*CMI*Y3/SS 
XBA(K)=lh3AU)-SBA(K)*HAA(K))*CMI/Y3/S3 
DA(KI«< 1.000,0. COO) 
900    OB(r.]  =  (0.  CDO,  0.000) 


SS3-0.000 
00    1000     KI  =  I, LIMIT 
DA(  l)«l  1.000,0.000 
DB(  11  =  10.000,0.000) 
00   900    J-2.N71 
Xl-TIMEI J-L) 
X2-TIMS1 J) 
X3-TIME ( J+l) 
Vl*X8At  J-l)  *DA(  J-l) 
Y2-XBA1 J )»OAI J) 
Y3-XBAI  J  +  11  *CA(  J*  U 
900    03IJ)=0otJ-l)*SjrtiAl,A2iX3,Yl,Y2iV3l 
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X3-TIHEIM-) 
X2-T1ME1NT1) 

Y1=X3AINT)»3AINT) 
Y2«XBA(NTl)*0AfNU) 
Y3»XBAINT1-U*0AINT1-Ii 
Dfl(NT)aO0(NTl)*-5U.HUltX2tX3iYltY2tY3) 
00   950    J-2.NU 
Xl=TIME(J-ll 
.X2-TIHf=(J) 
X3-TIME<0+1) 
Y1=XAB( J-l)<22! J-1J         - 
Y2-XABU  )»081JI 
Y3«XA6( J  +  i»  *C6 ( J+l) 
950    DA(  JJ=DA(J~1)«-SUMIX1,X2,X3,Y1,Y2,Y3) 
X3=TIME<NT) 
X2-TIME1NT11 
Xl-TIHEINTl-1) 
Yl«XABiNT]«DB<NT> 
Y2*XAB(  NTH*C9(NT1  J 
Y3=XA8|NTt-l)*QB!NTL-l) 
0A(NTt=0AlNTl)+SUM(Xl  ,X2.X3,Y1,Y2,Y3) 
IF( IPNT2.6Q.0)       GO    TC    13 
PRINT    21,    KI 

21  FORMAT! '1  ITERATION*' . 13/) 
PRINT    125 

125    FORMAT  UX.^X.'TIMe'  ,  2  5X  ,  •  C  A'  ,30X,  '  CS  '/  ) 
00    22    I  =  1,NT,NQAB 

22  PRINT    23,    T INg (  I  ]  , OA I  1 ) , OB ( I ) 

23  FORMAT!  2X,r  l2.o,*»X,<,E16.7) 
13    CONTINUE 

ssi-o.ooo 

SS2=0.00C 
00   960    1=1, NT 
SS1«SS1+COASS<OAII)-OBU) i 
960    S52=SS2+ClH3S(0B(IJ1 
SS3  =  SS1/SS2 
1000   CONTINUE 

2000    CONTINUE 
PRINT    3 
3    FORMAT!///'     R         UA..UB      XAB..XBA         C A.  .CB  .  . PROB. .UN 1TAR t T Y" //) 
DO    50    I-1.NT.NCA8 

CA(I]=OA(I)*CCEXP(  tC.COO,-1.000)*ALPII)  J 
CB(I  l=0B(I)*C0£XP{(0.00O|-l.0OOI*aTA(D) 
PR08=CB(  I)*OCCNJG(Cam) 
ENN=TIME(U*l  =  ALP-EBTA) 
£NT=OCMPLX{ a. 000, -CNN) 
UMIT=PRCE+CM  IJ*OCCNJ<i(CA|  I  )l 
U«OCCNJClCAtn)*CeiU»iAaU)«C!;EXP(ENT) 
UNIT-UN  I T+U  +  CCCNJG1U) 
UNIT-l.OCO-JNIT 

ss-ucoo-iAeii)«s2A(n 

X1*IHAA(  11-SA3I IJ'HBAII ) J/SS-EALP 

X2»(H3B(I)-S6A(I)*HAc(I))/S5-edTA 

Y1=(HA3I  I)-5A5U)*P|}£((  I  l/SS 

Y2-(HBAI  D-5  5AI  I  J*HAA{  I  )  )/SS 
50  PRINT  00,  R(I)  , XI, X2,Yl,Y2,CA(I)fCSlI), PROB, UNIT 
60  FORMATU  X rF9.3. 12 (IX , 1P09.2)  ) 

BP=PRCB*ESI  IP6) 

PRINT    229fBP,ES[ IP3) .EIHPT(LEV) 
229    FORMAT'/*  PRCS»RMQ=* ,E12.5, *       AT    RHC  =  ' ,F8. 4, '  EKEV  =  •  ,F  10. 3/ ) 

PRMP(l_EV,I?Bl=Ca(NT) 
PR8UEV,  IP3)  =  PR03 
BRPS<LEV,IP3)«3P 
RETURN 
END 
bUBRCUTINE    CATSM 


SUBROUTINE    DATSM 

PURPOSE 

NOIM    PCINTS    OF    A    GIVEN    TABLE    WITH   MCNCTCNIC    ARGUMENTS    ARE 

SELECTEO    ANO    CRJCREO    SUCH    THAT 

ABSURGI  l)-X).GE.AB5(ARG(  Jl-Xl     IF    I.GT.J. 


,2,F,IftCW,ICQL ,ARG,VAL ,NOIM) 


LOO 


OTSH 

10 

,OTSM 

20 

DTSM 

30 

OTSM 

50 

OTSM 

60 

OTSM 

70 

OTSM 

SO 

DTSM 

90 

OTSM 

1  00 

OTSN 

no 

0T5M 

L2G 

DESCRIPTION  OF  PARAMETERS 

X       -  DOUBLE  PRECISICN  SEARCH  ARGUMENT. 

Z  -  DOUBLE  PRECISICN  VECTCR  Of  ARGUMcNT  VALUES  (OIMEN- 
SIL'i  IROWJ.  THE  ARGUMENT  VALUES  MUST  UE  STCREO  IN 
INCREASING  OR  DECREASING  StJUENCE. 

F       -  IN  CASE  ICCL-1,  f  IS  THE  OCUBLE  PRECISICN  VECTCR 
OF  FUNCTION  VALUES  10IMENSIGN  1RQW). 
IN  CASE  ICCL-2.  F  IS  A  OCUELE  PRECISICN  IRCW  BY  2 
MATRIX.  THE  FIRST  COLUMN  SPECIFIES  VECTOR  CF  FUNC- 
TION VALUES  ANO  THE  SECCNQ  VECTOR  OF  DERIVATIVES. 
THE  DIMENSION  OF  VECTOR  2  ANO  CF  EACH  COLUMN 
IN  MATRIX  F. 

THE  NUMBER  CF    COLUMNS  IN  F  (I.E.  I  OR  21. 
RESULTING  DOUBLE  PRECISICN  VECTOR  CF  SELECTED  ANO 
GROEREC  ARGUMENT  VALJcS  (DIMENSION  NOIM1. 
RESULTING  OCUBLE  PRECiSlLN  VECTOR  OF  SELECTED 
FUNCTION  VALUES  (DIMEN51CN  NOIM)  IN  CASE  ICOL«l. 
IN  CASE  ICCL-2,  VAL  IS  THE  DOUBLE  PRECISICN  VECTOR 
OF  FUNCTION  AND  DERIVATIVE  VALUES  (DIMENSION 
2»N0IM)  WHICH  ARE  STORED  IN  PAIRS  (I.E.  EACH  FUNC- 
TICN  VALUE  IS  FCLLOwEC  3Y  ITS  CETIVATIVE  VALUE). 
THE  NUMBER  CF  POINTS  V.HICH  MUST  3E  SELECTEO  OUT  OF 
THE  GIVEN  TABLE  (Z,FI. 

REMARKS 

NO    ACTION    IN    CASE    IfiCW    LESS    THAN     1. 

IF    INPUT    VALUE    NOIM    IS    GREATER    THAN    IRCW,    THE    PRCGBAM 

SELECTS    GNLY    A    MAXIMUM    TA3LE    OF    IROW    POINTS.       THEREFORE    THE 

USER    OUGHT    TO    CHECH    CUARESPCNGENCE    EET^tEN    TA3LE     URG.VAL1 

AND    ITS    DIMENSION    BY    COMPARISON    OF    NDIM   AND    IRGW,     IN    CROER 

TO    GET    CORRECT    RESULTS    IN    FURTi-cA   WORK    WITH    TABLE     (ARG, VAL) 

THIS    TEST    MAY    BE    GCNt    BEFORE    OR    AFTER    CALLING 

SUBROUTINE    CATSM. 

SUBROUTINE    CATSM    ESPECIALLY    CiN    3E    USED    FOR    GENERATING    THE 

TABLE     (ARGiVAL)    NEEDED    IN    SUBRCUTINES    DALI,    DAHl,     ANO    GACFI 


IROW 


I  COL 
ARG 


VAL 


NOIM 


SUBROUTINES    AND    FUNCTION    SUBPROGRAMS    REyUIFEO 
NONE 

METHOD 

SELECTION     IS    DONE    EY    SEARCHING    THE    SUBSCRIPT    J    OF    THAT 
ARGUMENT,     hHICH    IS    NEXT    TC    X     (BINARY    SE4RCH). 
AFTERWARDS    NEIGHBOURING    ARGUMENT    VALUES    ARE    TESTEC    ANO 
SELECTED    IN    THE    ABOVE    SENSE. 


SUBROUTINE    DAT SM( X , 2 , F , [ AC* , I CCl . ARG , V AL, NDIM ] 

OCUBLE    PRECISION    X,2 , F, ARG , VAL 

DIMENSION    H  IRCW  J  .F  I  IRCW),  ARG  (NO  IM ) , V AL INCIM) 

CASE    IRCk=L     IS    CHECKED  OUT 
IF(IROW-l)23,21,l 

1  N»NOIH 

IF  N  IS  GREATER  THAN  IRCw,  N  IS  SET  ECUAL  TC  IROW. 
IF(N-IRGfc)3, 3,2 

2  N-IRCh 

CASE     IRCV.-GE.2 

SEARCHING   FOR    SUBSCRIPT    J    SUCH    THAT    2  f  J )     IS    NEXT    TO    X. 

3  mzi  iRowi-zm  is,*.. 4 

4  J«IRCW 
I«l 
GOTO    6 

5  I>IROH 
J-l 

6  K>(J+I)/2    , 
IMX-Z(K))T,7,8 

7  J«K 
GOTO    9 

s  :--< 

9   IF(  nest  j-n-ino, 10,6 

10  IF(OABSl ZU)-X)-DA3S(Z(  (>-X))  12,12,11 

11  J-I 

TABLE    SELECTION 

12  K-J 
JC-0 
JR-0 

00  20  1*1, N 
ARGU  W.UI 


DTSM  1J0 
DTSM  MO 
OTSM  15J 
DTSM  UO 
OTSM  170 
DTSM  UO 
DTSM  1-90 
DTSM  2 GO 
DTSM  210 
OTSM  220 
OTSM  230 
OTSM  240 
OTSM  250 
DTSM  260 
OTSM  2  70 
OTSM  2 SO 
OTSM  210 
DTSM  300 
DTSM  310 
OTSM  320 
OTSM  330 
DTSM  3-.0 
OTSM  350 
DTSM  360 
DTSM  3  70 
DTSM  360 
DTSM  390 
DTSM  4C0 
OTSM  410 
DTSM  420 
DTSM  430 
.DTSM  440 
DTSM  450 
OTSM  460 
DTSM  470 
.DTSM  480 
OTSM  490 
DTSM  500 
DTSM  510 
OTSM  520 
DTSM  530 
OTSM  540 
DTSM  550 
OTSM  560 
OTSM  570 
OTSM  530 
OTSH  590 
OTSM  600 
DTSM  620 
DTSM  630 


OTSH  690 
DTSM  700 
DTSM  710 

DTSM  730 

OTSM  740 

OTSM  750 

OTSM  760 

DTSM  730 
DTSM  790 
DTSM  300 
DTSM  310 
DTSM  320 
DTSM  830 
OTSM  340 
DTSM  350 
OTSM  860 
OTSM  870 
OTSM  330 
OTSM  690 
OTSM  900 
OTSM  910 
DTSM  920 
OTSM  930 
DTSM  940 
OTSM  950 
OTSM  960 
OTSM  970 


:oi 


IF(IC0L-1)14,14,13 
13    VAL(2*1-U-F(K) 

KK-K  +  IKQh 

VAL(2»I  1-FfKK.J 

GOTO    15 
1*    VALt  I)«F  tit) 

15  JJA-J+JR 

IFt JJR-1SOW) 16,18,13 

16  JJL-J-JL 
1F1JJL-1 119,19,17 

17  IFt  DA8SIZUJRU)-X)-CA 
16    JL-JL  +  l 

K-J-JL 
GOTO    20 

19  JR-JR+1 
K"J*JR 

20  CONTINUE 
RETURN 

CASE    IROWM 

21  ARG(L)  =  Z(1) 

VALt  i:    fuj 

IFI ICCL-2123, 22, 23 

22  VAL(2)=F12) 

23  RETURN 
END 


iS{Z(JJL-lJ-X)U9,19,13 


SUBROUTINE    DAL! 

PURPOSE 

TO    INTERPOLATE    FUNCTICN    VALUE    V    FCR    A    GIVEN    ARGUMENT    VALUE 
X    USING    A    GIVEN    TA3LE     (ARG.VAL)    OF    ARGUMENT    ANO   FUNCTICN 
VALUES. 

USAGE 

CALL  DALI  (X, ARG, VAL, Y, NDIM, EPS, IER) 

DESCRIPTION  OF  PARAMETERS 

X       -  00U3LE  PRECISION  ARGUMENT  VALUE  SPECIFIED  3Y  INPUT 
ARG     -  DOUBLE  PRECISION  INPUT  VECTOR  (DIMENSION  NDIM)  CF 

ARGUMENT  VALUES  OF  THE  TABLE  I  NOT  DESTROYED). 
VAL     -  DCU8LE  PRECISION  INPUT  VECTOR  (DIMENSION  NDI MJ  CF 

FUNCTION  VALUES  CF  THE  TABLE  {C6STA0YEG1. 
Y       -  RESULTING  INTERPOLATED  DOUBLE  PRECISION  FLECTION 

VALUE. 
NDIM    -  AN  INPUT  VALUE  WHICH  SPECIFIES  TPE    NUM8ER  CF 

POINTS  IN  TABLE  (ARG, VAL). 
EPS     -  SINGLE  PRECISION  INPUT  CONSTANT  WHICH  IS  USED  AS 

UPPER  BOUND  FOR  THE  ABSOLUTE  ERROR. 

FOR  THE  A350LUTE  ERROR. 

A  RESULTING  ERROR  PARAMETER. 


IER 

REMARKS 

(1)  TABLE  (ARG, VAL)  SHOULD  REPRE 
FUNCTICN  AND  SHOULD  BE  STORED 
DISTANCES  AflSURGf  li-X)  INCK 
SUBSCRIPT  I.  1C  GENERATE  THIS 
SUBROUTINES  DATSG,  CATSM  OR  0 
PREVICUS    STAi 

(2)  NO  ACTION  BESIDES  ERROR  ME5SA 
THAN    1. 

(3)  INTERPOLATION  IS  TERMINATED  E 
BETWEEN  TWO  SUCCESSIVE  INTER? 
ABSOLUTELY  LESS  THAN  TClERANC 
VALUE  OF  THIS  DIFFERENCE  STOP 
(NDIH-1)  STEPS.  FURTt-ER  IT  IS 
PROCEDURE  DISCOVERS  TWO  ARGUM 
WHICH  ARE  IDENTICAL.  DEFENOE; 
ERROR    PARAMETER    IER    IS    COOED 

IER=Q  -  IT  WAS  POSSIBLE  TG  R 
ACCURACY     (NO    ERROR) 

IER*1  -  IT  WAS  IMPOSSIBLE  TO 
ACCURACY    BECAUSE    CF 

IER-2  -  IT  WAS  IMPCSSI3LE  TO 
NDIM  IS  LESS  THAN  3, 
COULD  NOT  BE  REACHED 
TABLE.     NDIM    SHCUL 

IER*3  -  THE  PflOCEOURE  OISCCV 
IN   VECTOR    ARG 


ENT    A    SINGLE-VALUED 

.    SUCH    A    WAY,    THAT    THE 
i    WITH     INCREASING 
,    _.IO€R    IN    TABLE    (ARG, VAL), 
■  ATSE    COULD    BE    USED    IN    A 

GE    IN    CASE    NOIM    LESS 

ITHER    IF    THE    DIFFERENCE 
OLATED    VALUES    IS 
i    EPS,     OR     IF    TFE    JcSOLUTE 

DIMINISHING,    OR    AFTER 
TERMINATES    IF    T  I-  £ 
NT    VALUES     IN    /ECTOR    ARG 
T    C.N    Th-ESE    FOUR    CASES, 
FOLLOWING    FORM 
EACH    ThE    REQUIRED 

REACH  THE  REQUIRED 

ROUNDING    ERRORS. 
Ct-EGt    ACCJRACY    BECAUSE 
OR    THE    REQUIRED    ACCURACY 
ti  V    MEANS    OF    THE    GIVEN 

£     INCREASED. 
RED    TWO    AXGJMENT    VALUES 

ARE    IDENTICAL. 


SUBROUTINES    ANO    FUNCTICN    SUBPROGRAMS    KEQUIREO 
NOKE 


OTSM  980 
OTSM    990 

OTSMIOOO 

orsMioio 

DTSM1020 

DTSM1030 
DTSM1040 
DTSMIG50 
DTSMlQoO 
DT5M1070 
OTSM1080 
OT*M1090 
OTiMllCO 
DTSHU10 
DTSM1U0 
OTSH1130 
OTSM1140 
0TSMU50 
0T5M1  UO 
OTSH1170 
0TSM118O 
0TSMU9Q 
OTSM12C0 
DTSM1210 
DTSM12  23 
DTSM12J0 
OALI  10 
■DALI  20 
OALI  30 
DALI  40 
OALI  50 
CALI  60 
DALI  70 
DALI  30 
DALI  90 
DALI  100 
DALI  110 
OALI  120 
OALI  130 
DALI  1*0 
.DALI  150 
OALt  UO 
OALI  170 
DALI  ISO 
OALI  150 
CALI  200 
OALI  210 
CALI  220 
OALI  230 
DALI  240 
DALI  2  50 
DALI  260 
DALI  270 
OALI  230 
DALI  290 
DALI  300 
CALI  310 
OALI  320 
DALI  330 
OALI  3*0 
OALI  350 
OALI  360 
DALI  370 
CALI  380 
OALI  390 
CALI  *C0 
CALI  410 
DALI  420 
OALI  430 
OALI  4*0 
DALI  450 
OALI  460 
OALI  473 
OALI  430 
OALI  450 
OALI  500 
CALI  510 
DALI  520 
OAlI  520 
OALI  540 
OALI  550 
OALI  560 
DALI  570 
DAU  5*0 
DALI    590 
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KETHOC 

INTERPOLATION    IS    OCNE    BY    MEANS    GF    AlTKENS    SCHEME    CF 
LAGRANGE     IN TERPOLAT I ON*    UN    RETURN    Y    CONTAINS    AN    INTER 
FUNCTION    VALUE    AT    PC1NT    X,    WHICH    IS     IN    THE    SENSE 
(3)    OPTIMAL    WITH    RESPECT    TO    GIVEN    TABLE.    FOR    REFERtNC 
F.B.HlLDEBRAND,     INTRGCUCTION    TC    NUMERICAL    ANALYSIS, 
MCGRAW-HILL.    NEW    YCKX/TQfiCNTG/LCNDCN,     195o,     PP. 49-50. 


SUBROUTINE    DALI  I X. ARC, VAL. Y.N0IM.EPS, I ER) 


DOUBLE    PRECISION    ARG, VAL , X, Y,H 

OlMENSICN   AP.GlNDlM),VALiNDlH) 

IER-2 

0ELT2-0. 

IF(NDIH-1)9,7,1 

START   OF    AITKEN-LOCP 

1  00   6    J=2,N0IM 
DELTI-DELT2 
IEND-J-1 

00    2    1-1  ,IENO 
H-ARGIH-AftG(J) 
IF(OABSIH>.LT.1.0Q-&I    GO    TC    13 

2  VAL( J)* t VALl I)»lX-ARGU ) 1-VALIJ )*IX-ARGII )) )/H 
0£LT2=0A£S1 VAL I  J] -VALl I END) ] 

IFIJ-216,6,3 

3  IF(0ELT2-£PS)10,10,4 

4  IF{J-8J6,5,5 

5  IF(DELT2-3£LT1)6,1L,H 

6  CONTINUE 

END    OF    A1TK.EN-LGCP 

7  JaNDIM 

8  Y-VALU) 

9  RETURN 

THERE    IS    SUFFICIENT    ACCURACY    WITHIN    NOIM-1    ITERATION    STEPS 

10  I£R*0 
GOTO   a 

TEST  VALUE  DELT2  STARTS  OSCILLATING 

11  IER-1 

12  J=IEND 
GOTO    3 

THERE    ARE   TWO    IDENTICAL    ARGUMENT    VALUES     IN    VECTOR    ARG 

13  IER-3 
GCTO    12 
END 

COMPLEX     FUNCTION    SuH*l e>(  Xl  ,X2  ,X3  ,  Y  1 ,  Y2,  Y3  ( 
IMPLICIT    REAL*8     (A-H.O-ZJ 
C0MPLEX*16    Yl,Y2,Y3,A,a,C,0,E,F 
IFIDABSI (x3-X2)-IX2-Xl)).LT.1.0E-8)    GO    TO    10 
A=Yl/(t  Xl-X2)*Ul-X3) ) 
B*Y2/(<XZ-X3)*IX2-Xil) 
C*Y3/UX3-XU*U3-X2)] 
D-A+B+C 

E*-A*(X2+X3)-S*lXltX3)-C«f  X2*XU 
F«AM2*X3*3*X1*X3  +  C*X1*X2 

SUM=(0*(  X2*«2«-Xl*U2+Xl))/3.000*E*<.X2+XlJ/2.QDQ.-FJ*fX2-XlJ 
RETURN 
10    0=X2-X1 

SUH*0»( 5*Y1*3*Y2-Y3I/12.CD0 

RETURN 

END 

SUBROUTINE    0  IFEQ ( XO, XNO , TO , HH ,NN . EE J 


DALI  600 

CALI  610 

POLATEDDALI  o20 

EMARK   CALI  630 

SEE  OALI  640 

DALI  650 

OALI  660 

OALI  670 

....OALI  6dO 

CALI  690 

OALI  710 

OALI  720 


CALI    750 

OALI  760 
DALI  770 
DALI  7S0 
DALI  790 
OALI  SOO 
OALI  810 
OALI  820 
OALI  630 
OALI  840 
CALI  8  50 
OALI  860 
OALI  870 
DALI  880 
DALI  390 
DALI  900 
OALI  910 
DALI  920 
OALI  930 
OALI  940 
DALI  950 
CALI  960 
DALI  970 
OALI  933 
OALI  990 
DALI1C0O 
0ALUO1O 
CALI1020 
CALI1030 
0ALI1040 
0ALI1C5Q 
0ALI106O 
0ALI1070 
OALUC30 
0ALI1C90 
0ALI1  ICO 
DALI111Q 


11/14/67.    MODIFIED    FOR    ISM   370    BY    A.ENOAL 


VALUES   FOR 


WRITTEN    BY    L.AUER, 
3/13/74. 

PURPOSE 

SIMULTANEOUS  SOLUTION  OF  NN  FIRST  OROER  DIFFERENTIAL 
EQUATIONS  IN  ONE  INDEPENDENT  VARIABLE  AND  NN  DEPENDENT 
VARIABLES.  NN  MAY  BE  LP  TO  ICO. 

ARGUMENTS 

XO    »    STARTING    VALUE    FCX    INDEPENDENT    VARIABLE 
XND   -    VALUE    CF     INDEPfcf.Dt.NT    VARIABLE 

OEPENDENT    VAPIAfcLES    ARE    TC    BE    RETURNED 
YO    *    ARRAY    CF    C1H6NSICM    NN    WHICH    W  LL    CONTAIN    INITIAL 
VALUES    CF    D£PENO£NT    VARIABLES    UPCN    ENTRY 
-    ARRAY    OF    FINAL    VALUES    CF    DEPENDENT    VARIABLES    UPON 
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RETURN 
HH    -    INITIAL    STEP    SIZE    TO    UE    USEu.     STEP    SIZE     IS    INTERNALLY 

MOQIFIEO    TG    PRESERVE    ACCURACY    ANO    INCREASE    SPEEJ 
££    -   MAX.    PERMISSIBLE    TRUNCATKN    ERRGR    (ShUULO    SE     l.E-5    TO 

l.E-bl.    OR 
-   RELATIVE    ERROR     IF    NEGATIVE 


IMPLICIT    REAL*3 
REAL*8    M 
CGMMCN/(NTEG/X, 

(A-H,CW) 
H,N, 11,12. 13 

■  14 

.COMMON/  INTEG/    IS    A    CCHMCN    AREA    USEO 
.              SUBROUTINES    IN    THIS    PACKAGE. 

TO 

CCHMUNICATE    WITH    CT 

HER 

COMHCN/SCRATC/M 

(100), Tt 100! 

,tp(  1001,; 

HtlOOI 

.021  100) 

.COMMON/ SCRATC/ 
NOTE    THAT 

15    A    SCRATCH    AREA    WH 
N    IS    CF    TYPE    REAL*8 

LCH 

WAY 

SE 

REUSED 

ELSEWHERE.     . 

CCMMCN/YS/Y (100 

,41  ,Y?(100,-. 

J.AU) 

.COMMON/YS/     IS    A    SCRATCH    AR 
SIZE    OF    THESE    ARRAYS 
UPPER    LIMIT    CN    NN. 

EA    WHICH    1 
ANO    THOSE 

IAY 

IN 

5E    RtUi 

ccmmon; 

'0    ELSE 
SCKATC/ 

kHEkc 
SET 

.    THE    . 
THE 

OIMENSICN   V0I11 

.SU8PR0C.P-AMS    NEECEO  • 

SUBROUTINE    HERMIT   -    SUPPLIED    IIS    THE    PACKAGE 

SUBROUTINE    IUP  -    SUPPLIED    IN    THE    PACKAGE  . 

SUBROUTINE    GILL         -    SUPPLIED    IN    THE    PACKAGE  . 

.  CONTAINS    ENTRY    POINT    G1LL2 

SUBROUTINE    CER     (X.Y.YP)    -    SUBROUTINE    WHICH    GENERATES    THE    NN. 
.  CERIVATIVES    OF    THE    CEPENCENT 

VARIABLES    WITH    RESPECT    TO    THE 
.  INDEPENDENT    VARIABLE.     IT    MUST    SE    . 

SUPPLIED    WITH    THE    VALUE    CF    NN 
WHEN    WRITTEN    BY    THE    USER. 

'.  ARGUMENTS    FCR    DER 

X    =    VALUE    OF     INCEPENOENT    VARIABLE 

Y    *    ARRAY    CF    VALUES    CF    DEFENDED    VARIABLES 

YP   '    ARRAY   Of    VALUES    OF    DERIVATIVES.     Y    AND   YP    MUST    BE    . 

.  OF    OIMENSICN    NN  ■ 

.ENTRY    CEO    (XO, XNO, YO ,HH, NN.EE) 

THIS    IS    PKOVlJEO    TO    CONTINUE    THE    INTEGRATION    FROM    THE    POINT. 
WHERE    THE    PREVIOUS    CALL    TO   DIFEC    LEFT    OFF,    WHICH    IN  . 

GENERAL    MAY    NOT    aE    THE    LAST    XND.  . 

THE   MEANING    OF    THE    ARGUMENTS    ARE    THE    SAME    AS     IN   THE   MAIN 
ENTRY,     THOUGH    XC,    YO,    AND    HH    ARE    NOT    USEO    AND    NEED    NOT    3E       . 
DEFINED 


9999    CONTINUE 


.METHDO 

HAMMING'S  MET  HOC  PREC ICTCP -CORRECTOR  STARTED  3Y  THREE  GILL-. 
RUNGA-KUTTA  iTSPS  ANC  INTERNAL  HALVING  AMD  DOUBLING  Of  STEP. 
SUE    TO    PRESERVE    ACCURACY    *N0    INCREASE    SPEED  . 

THE    STEP-HAlVING    IS    DONE     BY    4-POINT    HERMIT  6    INTERPOLATION       . 


•ADDITIONAL    DOCUMENTATION    AVAILABLE 


N   -    NN 

H   •    HH 

HMIN    *    0A3S     (HH)     /     <r0<6. 


yiitii 

CALL    DER    (X 

CALL    GILL    lYll.ll     ,    Y(l,2)     ,    YPl  I, 

.X    IS    UPPEO     -ITHIN    GILL 

CALL    GILL2     (Y(l*2l     .    Y(l,3)     i    YPU 
CALL    GILL2    (Yd, 3)     ,     VI  1,  *♦)     .    YP(L 


.WE    NOW    HAVE     THE    VALUES    AND    THE    0ERIVAUV65     AT    ThE.    FIRST    4    POINTS. 
.AND    ARE    REAOY    TO    USE    THE    HAMMING'S    PftEOI CTC* -CGfUtCTCR  .     THESE 
.RUNGA-KLTTA    STEPS    ARE    Al-A/S    CCMPUTEU    TO    RESTART    THE    SOLUTICN 
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2   00  3    I    •    1    ,    N 

5  mi).    :. 

ENTRY   DEC    1X0    ,    XNO    ,    YO    ,    MH    ,    NN    ,     Ec) 

EPS   -  DABS    (EC) 

IF    (X    .GE.    XNO)    GO    TO    14 

*  DO    5    I    -    1    ,    N 

T(I)    -    Y(I, II)    ♦   4.    *    H    *    (2.     *    YPd. 14)    -    YPII.I3) 

•  YPd,I2d     /    3. 

.02    IS    THE    MODIFIED    PREDICTGfi 

5  02(1)    *    T(I)    *    .92561983**    «IlJ"" 
CALl    OER    (X*H    ,    02    ,    TPJ 

00   6    I    -    1    >    N 

OKI)    -    ((9.    *    Yd,  [41    -    Yd,  12))    *    3.    *    H    *    dPU) 

*  YPd, 14)    -    YP(  1,13)1)    /    3. 

6  Ml  I)    «    Did)    -    Til  ) 


•  CHECK    WHETHER    THE    STEP    SUE    SHOULD    3£    HALVED   Oft    0OU3LEO                         . 

EMIN   m    Q. 

DO    7    I     =    1    ,    N 

.CHECK    THAT    THE    RELATIVE    ACCURACY    CRITERION     IS    SEING 
•SATISFIED 

■ 

E    «    9.     *    0A5S    IM(d)    /    121. 

IF     (EE     .LT.    0.)    1  *   2.    *    C   /    0A8S     IDUI)    +    Td)     ♦    l.G-65) 

IF     IE    .GT.     EPS)    CO    TO    9 


EMIN  *    DMAX1     (E     ,    EMIN) 

.THE    LAST   STEP    «AS    CF    SATISFACTCRY 
.BE    UPDATED 

ACCURACY    SC   THE    SOLUTION    MAY       . 

oo  a  i  ■  i  ,  n 

Y(  1,11  )    -    Old!    -    .07438016    * 

Mil) 

•MODIFY     THE    FINAL    SQLJTIGN    INSTEAD 

CF    ITERATING 

CALL    OER    IX    ,    Yd, II)     ,    YPtl.ID) 

CALL    IUP 

IF    (X    .GE.    XNO)     GO    TQ    14 

IF    (EMIN     .GT.    0.001    *    EPS)     GO    TQ    4 

GO   TO    11 

.STEP   HALVING 


9  CALL  HERMT  U-0.5*H  ,  02) 
CALL  HERMIT  (X-1.5»H  ,  01) 
00    10    I    *    1    ,    N 

Hill    •=    Md)    /    32. 

Yd  ,12)    =    Y(  1,13) 

YPII.I2)    =    YPd,  13) 

V(  I  ,11)    -    Did) 
10  Y(  1,13  )    -    D2I I ) 

CALL    OER     IX-0.5*H    ,     D2    .    YPd, 13)) 
CALL    D£R    (X-1.5*H    ,    DL    ,     fPll.IU) 
H  -    H   /     2. 
IF    (QABS    (H)     .GT.    HMIN)     GO    TO    4 

PRINT    100, X.H 

100  FORMAT     I'    STEP    SIZE    H    HAS    3EEN    HALVED    TCO    OFTEN    AT    X* ' ,  1PC12. 5, /, 
S  '    PRESENT    STEP    SIZE    IS   H»< ,012.5) 

PRINT    101 

101  FORMAT    (  lOX.'M'  ,9X,>  Yd  I)  '  .3X,,YPHli',9X,'YU2)',SX,'YPd2)', 
*  SX,'YU3),,3X,,YPd3),,9x,,Y(I<,),,3X,<YPlI<«)'] 

PRINT    102,  (Md  I  ,Yd,ld  ,YPt  I ,  I  1 ) ,  Y  d  ,  I  2  ) ,  YP  d  ,  12  J  .  Y  d  ,  I  3  )  ,YP  (  I  ,13) 
,Yl  I,I4),YP( I, 14), 1  =  1, N) 


102    fCRMAT     (  1P901-, 
GO    TO   4 


•STEP   OCUBLING 


11  00  12  I   *  I    *  N 

Y(  I  ,13)     =    Y(  1,  12  J 

12  YP (  1,13)    -    YP( I  ,12 
H   ■     2.    *   H 

CALL    GILL    IY(1,I4)     ,    Y( 
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CALL    IUP 

CALL    GILL2     (Y(l,I4)     ,    VdilU     .     YPU.IU) 

CALL     IUP 

00    13    I    •    1     ,    N 

13  M(  I)   m   0. 

.ONCE   MORE    CHECK    ThE    TERMINATION    CONDITION  ♦ 

14  CALL    HERMIT     IXNO    .    YO ) 

■  IF  IX  .LT.  XNO)  GO  TO  2 

RETURN 

END 

SUBROUTINE    HERMIT     (XO    ,     YO) 

•TOIS  ROUTINE    PERFORMS   THE    hERMITE    INTERPOLATION    FOR    STEP   HALVING*. 
.IN    OIFEfi.    SEE    OIFEQ    FOR    ADCITIGNAL    DOCUMENTATION. 

IMPLICIT    REAL»3     (A-H.O-Z) 
REAL*8    L  ,LP 

COM HCN/ I  NTE 3 /  X ,  H  ,  N  .  1 1 , 1  2  ,  I  3  , 1 4 
COMMON/ YS/Y( 100 , 4 ) , YP < 100 , 4 ) , A { M 
DIMENSIOS   YOU] 


A(I4)   ■    X 

A(I3>    -    X  -    H 

A(I2)    -    AII3)    -    H 

AMD    =>     AU2)    -    H 

00    1    I    -     1     ,    N 

YO(I)    =    0. 

00    *    I    *    1     ,    4 

I   ■    1. 

LP    -    0. 

00    2   J    -    1     ,4 

IF     II     .£0. 

J)    GO    TO 

L    =    L   *    1X0    -    A(JU     /     lAtl)    -    AIJ)) 
L?    *    LP    •    1.    /    (All)     -    AtJU 

CONTINUE 
00    3   K    -    I     .    N 

YO(K)    *    YO(K)     *     1(1.    -    ?..    *    IXO   -    AID)    *    LP)     *   YIK.I) 
1  «-    IXO    -   AtlU    *    YP(K,IM     »    L    *    L 

CONTINUE 
CONTINUE 

RETURN 

ENO 

SUBRCJTINE    IUP 

.THIS    SU3RQJTINE    JPCATES    TKE    INDICES     IN    COMMON/ INTEG/    *H£N   CALLED 
.BY    CIFEC.    SEE    OIFfcg    FCR    AOJITICNAL    CCCUMENTATICN . 

REAL*3    X    ,    H 
COHHCNVINTEG/X.H.N.I 1,1  2  1 13,1*. 

11  -    MOO  til  ,    4)  t    1 

12  -    MCO  112  ,     M  ♦     1 

13  -    XOO  113  ,    4)  +    1 

14  «    MOD  (14  i    41  ♦    J 

RETURN 

ENO 

SUBROUTINE    GtLL     (YO    .    Yl     ,     YP) 

.THIS   ROUTINE    PERFORMS    Th£    GiLL-RUNGd-iCUT TA    STEPS    *H£N    CALLED    3Y 
.DIFEQ.     SEE    OIFES    FOR    ADDITIONAL    DOCUMENTATION. 

IMPLICIT    R£AL«3    [A-H.O-ZJ 

COMMON/ I NTE G/X.H.N, 11,12, 13.14 

DATA    CONS/0. 7O71C&781U654700/ 

DIMENSION   Y0(  I)  .Yll  1)  ,YP[  1) 

CGMMCN/SCRATC/U I  100  I , T2 ( ICO ) , T3( 100 ] , T4(  100]  ,Sf I  GO) 

•THIS   IS* A  GILL'S   NEThCO   Cf    INTEGRATICN. 

CALL    DEft     IX     .     YO    .    Til 

ENTRY    GILL2     (YC     ,    YI     ,    YP) 
DO    1    I    ■    I    ,     N 

TKI)    =    H    *    Tltl) 

Si  I  )    =     YO(I)    «■    0.5    *    Till) 
CALL    OER     U*0.5*H    ,     S    ,    T2) 
00    2     I    -    1     ,    N 
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T2(I)    -    M    *    T2II) 

2  SCI)    =    YOUI     +    tCCNS    -   0.5)    *    TL(I)    ♦    (1.0  -   CGNSJ     *    T21I) 
CALL    OPR    U*Q.5*H    ,    S    ,     T3) 

DO   3    I    ■    I    ,    N 

T3U)    -    H    *    T3 1  I  » 

3  St  1 1    ■    YOU)    -    CCN5    *    T2U1    +    (1.0    +    CCNSI    *    T31I) 
X  ■    X    +    H 

CALL    DER     IX     ,    5     ,    1*1 
00    *    I    -    1    ,    N 

Tim  =  Yom  *  (run  +  2.  *  a.  -  consi  »  T2(i)  +  2.  * 

*  II.    ♦    CONS)    *    T3(I)     *■    H    *    TMI))    /    6. 

*  CONTINUE 

CALL    OER     (X    ,    Yl     ,    YP) 

DO  9  I  •   I  t   H 
5  TUH    =    YP1II 
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ccccccccccccccaccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

CCCCCCCCCCCCCCCLlCCuCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCOCCCCCC 


TO    COMPUTE   CAPTURE     CROSS    SECTIONS    FOR    PROCESSES   OF    THE    FORM 

B*         *■         AINS)  ->         8(  N»  P)  *         A* 

OR   ThEIR    TIME   REVERSED    COUNTERPARTS. 


NLG         (16151 

NUMBER    GF     INTEGRATION    POINTS    FCR    GAUSS-LAGUERRE    yUAORATJRE 

(XIIX),WXIIX),IX*1,NLG)         14020.1  5  J 

AilCISSAS    AND   WEIGHTING    FACTORS    FOR    GAUSS-LAGUERRE    QUADRATURE 

(U5Ei.lt]  (1-1*201   (20AM  j 

PROGRAM  TITLE 

21,  22.  RMAX,  FM8   (3FIU.5) 

III      CHARGE    OF    THE    TARGET 

Z2:       CHARGE    OF    THE    PROJECTILE 

RMAX:       INTERNuCLEAR    DISTANCE    FCR    WHICH   REACTIGN    SEGINS    TO    OCCUR 
(FCR    H-K    CAPTURE    RHAX=30) 

FH3:       FM3-0       IF    ENERGY     IS    IN    KEY/AMU 

FM3I       F.M3-    HASS    CF    Th£    PRCJSCTILE    IF    ENERGY     IS    IN    KEV 

NCGOE,     ICCQE,     JCCDE,     IPNCH,     IRED,    LIMIT,     MH,     IPNT1, 

IPNTZ,    NITP,    N0A3,    NCAe,     IEL  (le.151 

NCOOE:       NCO0c=O       NGN-I TER ATI VE    SOLUTION    OF    COUPLED    EQUATIONS 
IF    NCODE=0       LIMIT,    MM,     1PNT1,     IPNT2.     NITP,    NCAB,    NCAd 
NEED    NUT    QE    DEFINED 
NCCDE-1       ITERATIVE    SOLUTION    OF    COUPLEC    EQUATIONS 

ICQDE=I       IF    INTEGRATION    OVER    IMPACT    PARAMETERS    IS    PERFCRMcO 

JCG0E=1       IF         UA,    UB,    XAB,    XEA       ARE    PRINTED 

IPNCH*1       IF   MATRIX    ELEMENTS    ARE    PUNCHED 

1R60-1       IF    MATF.IX    ELcmENTS    ARE    READ    IN 

LIMIT:       NUMBER    CF    ITERATIONS    NEEDED  » 

FCR      V/VE=1/2,1,2;       Ll.MIT=6,4,3 

MH:       10*MM*1       IS    THE    NUMdER    OF    TIME    INTEGRATION    POINTS 
USED    IN    THE     ITERATIVE    SOLUTION 

ZPN71=1      FOR    EVERY    NiT?     INTERPOLATED    MATRIX    ELEMENTS 
TC    BE    PfllNTEO 

1PNT2=1      FCR    EVERY    NDAB    PGINTS    OF    EVERY    ITERATIVE    SClUTICN 
TO    BE    PRINTED 

NC4B:       EVERY    NCAB    POINTS    CF    ThE    FINAL    SOLUTION    ARE    PRINTED    IF 
NCAB    IS    NCT    DEFINED    IT    IS   AUTOMATICALLY    SET    EQUAL    TO    I 

IEL«1       FCR    A    ONE    ELECTRON    TARGET 

Mil     NEV,    NP.O,    NA,    MB,    NT,    NP  (1615) 

Nil       6*NI+l       IS    ThE    NJMBER    OF    TIME    INTEGRATION    POINTS 

NEV!       NUMBER    CF    ENERGIES 

NRO:       NUMBER    OF     IMPACT    PARAMETERS 

NA    INBJ:        IS    THE    PRINCIPAL.   QUANTUM    NUMBER    FOR    THE 

INITIAL     (FINAL)     STATE    JNC    NEED    3c    DEFINED    CNLY 
IF    A    hYCRGGENIC    MOOEL     IS    USED. 

NT    INP)J       NT*l     (  NP  =  1  I        IF    A    NOf.-nY  DFOGEN  IC    MODEL     IS    USED    FOR 

THE    INITIAL    IFIMtLl     STATE.     IF    NT  =  1     (NP=1)    ThE    <t    CARDS 
FROM    PROGRAM    HERMAN    CONTAINING    THE     INFORMATION 
FCR   THE    INITIAL     (FINAL)     STATE    MjST     FOLLOW    CARD    B 
t    FOR    THE    FINAL    STATE    THE    4    CARDS    FCLLCw    EITHER 
CARD    6    OR    CARD    12,    WHICH    EVER     IS    LAST. J 

(EIMPTl I  J ,1=1, NEV)        (3F10.5) 

ENERGY    POINTS     IN    KEV 

(EB(  I)  ,1  =  1  ,NRO)        18F10.5  J" 

IMPACT    PARAMETERS    IN    A.U. 

IF    Nl  =  l    THE    FINAL       STATE     INFORMATION    FGLLG-S 

IF    NP»1    THE    FINAL    STATE     INFORMATION    FOLLOWS 


hRITTEN    BY    LAUPA    TUNNELL     (1975) 


CCCCCCCCCCCCCCCCCrcCCCCCCCCCCCCCCCCCCCLCCCCCCCCCCCCCCCCCCCCCCCC-CCCOrffrrrrr 

cccxcccccccxccaccccccccccccccccccccccc<xccccccccccccccccccccccc;cccccccccccc 

IMPLICIT    REAL*3     IA-H.O-Z] 

COMPLEX* 16    SAe,HAB,H3A,SEA( 150) ,  PRMP.CI 

C0MPLEX*16    SAB?X,HA6PX,H6APX 

CCMPL£X*16    SAiJP  ^..HAbPZ.HHAPi 

COMMON/ MXX/SA3PX(  ISO)  ,HA3PX  ( 1  50  I  ,H0A?X  (  IsU)  ,HE3t>x(i50) 

CGMMGN/M2Z/SABPZC  150)  ,1-ASPZ[  ISO)  .H3AP2I  15  0)  ,HatPZ(150) 

C0MMCN/MATRX/3A1)(  150)  ,HAe(  i5o),MbA(  1;0)  ,niAU50),h3a|  15  0) 

COMMON/ IMP;  T  1/7  ,«HO,RM,  r,PI  ,NT(NNT,NfcTl 

COMMON/  IMPCT2/K1  150)  ,TIMF.(  150). 2  1,2 2 

COMMON/ I HPC 13/68(201 . EI  MPT ( 10) r N*C  .NtV.LfcV, IPB 
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CCC 

cc 


, ,PRBI2, 10,;0I,3RPQI2, 10, 20 ) ,PRMP (2 . 10,2  0) 
CGMHCN/LAuU/Xl j2)  ,*.X  I  32  )  .NL.vi 
COMNCN/PTNTL/UL  W(  J  J  ,CV!  3  ,  J  )  ,AZ  ,0Z 
COMMON/  rfFA/E  ALP  ,  ZA.ACuEF  I  10  ) ,  -UP!  1  0)  i  MX  A  (  10  1  ,  NA 
CCNMLiN/„Fe/EttTA,Ze,i)CCtF(  10  1 ,  3XP  (10  )  ,  NX  lH  10),NB 
C0MMCN/nPTN/LlMlT,MM,lPNCH,IR£0,IPNTl,IPNT2,NITP,NCAS,NCAB 
DIMENSIC.'N   LABEL120),XXX(25),YYY(25)  ,SC,1AI  2,  10), Y(4) 
3    FORHATl 10UX.IPJ12.&) 1 
81    FORMAT!  '  1 ',///•  TIME R  All A12 A21 A 22'/  I 

100    FCRMATl  1615) 

200    FORM  Alt  BrlJ.<.) 

300    F0RMATUCA4) 

400    FORMAT!  •  I', ////25X.20A4) 

249    FORMAT!  4E20.15) 
AZ-0.000 
Bi- 0.00  0 
PF1-1.000 

READ15.1CQI     NLG 

READ! 5, 2  49)     (  a!  I  X  ) ,  UM  I  X)  ,  IX  =  1,NLG) 

READ (5, 5  00)     I  LAB  EL II 1,1= 1.20) 

r£ad(3,2co)   li#Z2»R:ux.F*ta 

IFfRMAX. £0. 0.000)       RMAX=40.000 
IFIFM3.  ECO.  0001       FMB=1.0D0 

READ (5, 100)        NCCOG,ICC'OE,.JCCG£,IPNCH,IRED, 
.LIMIT, MM,  lPNTl,IPN7  2,NITP,NDAB,NCA3,l£L 
IFUEL.NE.O)       PFI«O.0CO 
(FlNCAS, Ew.O)       NCA3=5 
IF(NDAB.E3.0)       N0A3=5 

ifinitp.e;.o)     NiT<>=5 

READ! 5, ICO)  NI  ,NEV ,.\R0 , HA , N3  ,NT .NP , IFlLc 

READ! 5, 200)  ( EIMPTt I  ) , 1  =  1 ,N£V) 

READ  1 5, 1  001  1          £611) ,1*1. NRG) 

IrlNA.EO-0)  NA-1 

IFINB.EQ.C)  NB-2 

PRINT  -til 
411    FORMAT!'       'iLG,  t X{  IX) , WX! IX) , IX  =  1 ,NLG)        ') 

PRINT   IOC,  NLG 

PRINT    3,  (XI  IX)  ,WMIX)  .  IX=1  ,NLG) 

PRINT    41* 

41*    FCRMATl'  Zl ,Z2,£MAX,FM&       ') 

PRINT    200,  Z1,Z2,RMAX,FM3 

PRINT    413 

413  FORMAT!'  NCQOE, ICCOc , JCCOE , I PNCh, IREG , 
.LIMIT.MM.IPNT1, IPNTZ, M TP ,N0A3 ,NCA3          '  J 

PRINT    100,         NCG0S,lCiXE,JCC3E,IPNLH,UcOf 
.LIMIT, MM, IPNT1,  I  PNT2.M  TP,  NCAB,  NCAB 
PRINT    415 
415    FORM AT t '  NI  ,NcV ,NRC ,NA ,N3, NT , NP, IFIlE       ') 

PRINT    IOC,  NI  ,N£V,NnO,NA,r<8,NT,NPfIrIL£ 

PRINT    4  16 

414  FGP.MATf  ( El  MPT U ) , I  =  1 , NEV )  '1 
PRINT    200,  !eIM?T(I),I=1,NEV) 
PRINT   41 7 

417    FORMAT!  '  I  E3  ( I)  .  I  =  1 ,  NP.C       ') 

PRINT    200,       1EBU)  ,  1=1, NRG) 
FNA  =  OFLCAT(  \AJ 
FNB-0FLCATIN3) 
EALP=ZI*Z1/FNA/F\A/2.0D0 
E3TA=Z2*Z2/FNo/FNB/2.COG 
AC0EFI1  ) a  1.000 
ACOEf  12)  =-03QP.T  (3  .000  ) 
ACGEF13) =Oi03T( Z. 5000) 
3CCEFU )«3SQRTI24.000) 
BCOEF 12) =-J50,*Tl45.000) 
IFINB.E0.2)      SC0EP(1W.QDQ 
DO    20    1-1,3 
NXAU)*I 
NXB!  I)"t*l 
AXPlI)  =  Zi/F.NA 
BXP!  IW2/FN8 
OLMVtD-O.ODO 
OQ    20    J-1,3 
20    CV( 1, J)*0.000 
NB-NB-1 

1FINT.EQ.0I       GO    TO    22 

READ (5, 2  00)     EALP , FA , OLMV ! 2 ) , < CV!I , 2 ) , I- 1. 31 .AZ 
NA-FA 

READI5,  1001     lNXA(Ii,I=l.NA) 
REA015.2COI      IA<?!IJ,I=1,NA) 
REA0IS.200)     UCCeFll)  ,1  =  1,.. A 1 
22    CONTINUE 

IFINP.EQ.O)        jQ    TO   24 

READ!  5,  2  00)     E3TA,Fo  ,;;LMV  !  3  )  ,  ICY  I  I J  i)  ■,  1  =  1 ,  3)  ,SZ 

N3~FB 
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READ!5,1C0I     INXB(I)  ,1-1, NO) 
REAO(5,2C0)     IBXPI II ,1-1, NB) 

reao15,2COI    i3cr,EFm,i-i,N8) 

24   CJNT1NUE 

FA»OFlCAT!NA) 
F8-OFLO»'.T(ND) 
PRINT  423 

423  FORMAT (•  EALP.NA ,DLMVI 2 ) , I CV( 1 , 21  , 1  -  I , 
PRINT  2  00,  £ALP,FA,0LMV!2) ,  I  CV ( 1 , 2  I , I- 1 , 
PRINT   42  5 

425FCRMAT!"  !NXAU),I«1,NA)  ') 

PRINT    100,       INXAU)  ,1-1, NA) 
PRINT    419 

419  FORMAT! ■ 
PRINT    200, 
PRINT    421 

421  FORMAT!'  I ACCEF ( I  1  ,1 *1 ,NA)  •) 
print  2co,      i.-.:... I  I  I),I-1,N  ■■) 

PRINT    424 

424  FORMAT!'  coTA  ,Nd .0LMVI3 ) , ( CV ( 1 ,3 )  ,  1*1 , 3)  ' 
PRINT    200,       E3TA,F&,DL4V13),ICV(I ,3) ,1*1,3) 

PRINT    41B 

418    FORMAT! ■  INXB! I ) . 1*1 ,NB )  ') 

PRINT    100,  !NXB(  I),I=l,N6) 
PRINT   420 

420  FORMAT!  '  (OXPt I J , I "1 ,HB )  •) 
PRINT    200,  iaXPU),I  =  l,NB) 

PRINT    4J2 

422  FORMAT!  ■  ( BCCEr ! I 1 ,1  =  1 , NO  1  ■) 
PRINT   200,       (BCCEF(I),I-1,NB) 

AZ-A2+1.000 

£Z«ez*l.C0O 

CI-OCMPL X! 0. 000 , 1 .000 ) 

PI-DARCuSt-l.OOO) 

TKOPI=2.00Q«PIM 1. 5290-06 )**2) 

ZA-Z1 

26-22 

Z2*ZA 

IFl2B.LT.iA)       22«ZB 

21=22 

EALP=EALF/Z2/Z2 

£BTA=E5TA/2  2/22 

NNT-3*NI 

NNT1=NNT+1 

HT*2*NNT*l 

00    1000    lEV=l,NEV 

EKEV'EIMFTILEV) 

V-0SQRT(E«EV/F131/5.CD0 

SETUP   TIME    VECTOR 

TIME(NNTU  =  0.0 

IF!  NI  .ECO)     GO    TQ    1005 

TIMEINT) «R*AA/!ZA*I3)/V  .     i 

TIMEINNT  11=0.000 

MT«TIMEINT)/T.0  00/3FLCAT!NI) 

00    10  J-1,3 

JI-IJ-l)*MI 

00    12    I=WNI 

JU-I 

IF!  J.GT.1J    J1!=I*I2»*(J-1)  1 

TIHeiNNTI*Jl*I)*TlMe(NNTH-Jl)+Jlt*HT 
12    CONTINUE  "     " 

10    CONTINUE  '■ 

00    14    I-l.NNT 
14    TIMEINNT1-J  J  =  -  T  I M  E  ( "iN  T 1  +  1  J 
nns   cum  iNiiP 


1005  C0N1 INUE 
00    1001     t?B  =  l,".RO 
RriO^EBl  I  Ft.) 
RINNT1)  -RMC 

IF(NI.EO.O)    GU    TO    1006 
DO    15    I=1,NNT 

RINNT1*  t  )-aS;'RT!«HO-aHC+V*V*T!MElNNn  +  E  >*T  I  **E  (NNT1  +  1  |  ) 
RINNT1-J  )-R(NNTlM) 
15    CONTINUE 

IF!  IBED.EQ.l)    CO    TO    5C 

1006  COMINJE 
CALL    CMAIRX 
00   TO   5  5 

50    CONTINUE 

EKtV-tK.EV/22/22 

V-V/22 

RHO=RHO*22 

Vft-OSSRT  (tKEV/,eALP/FMS/2  7.21Co0-0  3/1336.0) 

00    59    1  I  1*1  ,2 
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00  51  I-l.NI 

RfcA0(5,52)  UME(I),lUAtU,H9B(l) 
RfcADt5,52)  SAtt(II,riAO(lliHCAtI) 
UMfc(I)-TI1Ell)*Z2«.I2  . 

51  CONTINUE 

52  FORMATI 7EU.5) 
IFUII.EC.l  )       PRINT    91 
IF t  El I. EC. 21       PRINT    &1 
00   75    IT-l,NN1  1 

75  PRINT   93,    T I ME I  IT )  ,* ( IT  J , SAB ( IT  1 , HA3 ( IT  ) , HB At  IT ) , HAAt IT )  ,  h6B! I Tl 
93'  FORMAT!  2{lX,f  1J.  51  ,  bX  ,3  (  1PD  1 1  .4,  IX  ,  1P01 1.  4,  2X  1 ,  3X  ,  2  ( 1  PO  U  .4  ,  IX  t  J 

PRINT   9*,    Z2,EKEV,V,VR,RhC 
IFiNCODE.Li.U       CALL    £>j:  cQ  (f.  .'.  I II  I 
IFtNCOOE.NE.O)       GO    TO    76 
IF11II.EC.U       PRINT    97 
1ft  III. EC. 2)       PRINT    67 
Yd  1-1. OCO 
Y12  l-Q.OCO 
Y(3)«0.GD0 

rt+ 1*0.0 co 

CALL    01  FECI  fl  ME  i  U,  T  I  HE  12  )/2. 000^,0.2000, 4, 1.0-6) 
00    78    IT=2,NT 

CALL    0E3(TlMEU),TIMEtIT),Y,HH,4,l.U-6) 
PROB=Y(  3  )»Y(  3J+Y14  I-YE4) 
UNIT*PRCS+Y t l)*Yt i)*Y!2)*Y( 21-1.00  0 

UNIT-UN  I T+2.030*S A3 1 IT! *OCMPLX IY < 1 ) ,- Y t 2)  )  *DCMPLX  (  Y  t  3  ) ,  Y  (  4)  ) 
./COEXPt C  I«TIME( IT J*l CALP-E6TA)  ) 
78    PRINT    95,    T  1  ME  t  IT  I  ,R  ( IT  )  ,  I Y  t  I)  ,  1  =  1 ,4  )  ,  PRCB,  UN  IT 
PR8IIII .LEV,IPB)*PRCa 

awe  mi  .lev,  i?a»«pfics*£Bi  ipsi 

PRMPIII  I  ,LEV,IP3)=DCMPLXlYt3),Y(4)  ) 

PRINT    99,    PRBtlll.LtV.IPb)  ,BAPB  (  1 1  I  ,  LEV  ,  I  PB  ),  EIMPT  (LEV)  ,  Efil  IPB) 

76  CONTINUE 
59   CONTINUE 

GO    TO    53 

55  CONTINUE 

EKEV-EKEV/Z2/Z2  * 

V=V/Z2 

RHC*RHa*22 

VR=OS;RT  (  EK  =  V/cALP/F>' 5/27. 2 1060-03/ I  fl  36.0) 

00    56    I=1,NNT1 

II-NT-II-il 

TIMEU)  =  TIVE<I)»Z2«Z2 

TJME(II)— TIMtEUl 

SAB(I)-3J3PXtil 

HAB(IJ=l-AbPXtI) 

H8AUI«HBAPXU1 

HM(U«HfSPX(t] 

SAB(II)=SA3PX!II] 

riABHI)=l-A5?X(in 

HBAl  I  I)=hBAPXII  II 

HSB(li)>h8fiPX(IIJ 

56  CONTINUf 

IF( IPNCH.EQ.OI       GC   TC    70 

00  71    1  =  1,  ^Tl 

PUNCH  52,  TlMEU)  ,hAA(  I)  ,H£aii  ) 
71  PUNCH  52,  SAStl)  ,H&6tI),HSA(  I) 
70    CONTINUE 

PRINT   4uC,     ILA3ELII)  .  i=i  ,20  I 

PRINT    91 

91  FORMAT!  •       NPX         TIJ1E...R  SAB.  .  .HAS.  . .  hBA         HAA...KBB  '//I 
DO    92    IT  =  1,NNT1 

92  PRINT    93,    T IMEt  IT  I ,R I  IT  I . 3 A&l  I T 1 ,HA61 I T) , H6 At  I T) , HAA ( IT)  ,H&8 1 1 T) 
PRINT   94,    EZ.ElCeVfViVH.RHC 

94  FCRMAT(//'       SCALING    FACTOR     »'.F6.2,'     SCALED    QUANTITIES     i     £IKEV)=' 
.1P0H.4,1    V    -NIP09.2,'     V/VK    =',1P09.2,'    RriC    *«,1PD9.2//J 

IFtNCC3E.Ea.il       CALL    CCJPEQlNT.l) 
IFtNCCOS.NE.Ol       GC   TC    96 
PRINT    97 

97  FQRHATC  1',///'     NPX  TIME...R  CA. .. CS .. .PRQB. . .UN  I T       *//) 
YUt-1.000 

Y(2)=0.000 
Y(3)*0.CC0 
Yl4)-=0.  000 

CALL    01 F E31 TIME  11) .TIME  121/2.000, Y,0. 2000, 4,1. D-6) 
00   93    I T*2,NT 

CALL    CECtTIMEt  D.TIHf  (!T),Y,riH,4,l.0-6) 
PRCB=Yl  3)"Y  I3J*YC)*r  (4) 
UNIT*PRG6M(l)-Yl,U+Y(2l*Y(2)-l.Q0O 

UNIT-=UNIT*2.UO0*SAU(IT)*DC.-PLX(y(ll(-rt  2)  I  *K  V.PL  X  I  Y  I  3  )  ,  V  (  41  ) 
./CQfcXP(Cl*TIHfc(  m«UALP-tETAJ) 

98  PRINT    95,    T  I  ME  I  I  T  i  ,R  I  IT  1  , 1  Y(  I  )  ,  I  =1 ,  hi  ,  PROB,  UN  IT 

95  FORMAT  I  iliX  ,  f  10. 5  J *6X i2  11PC10 .3t  IX ,  iP010.3f  2X)»  ZX 1 21  IPO  10. 3, IX)  I 
PRut  l,L£«»IPB)»PROb 

BKPSt  1,  LEV, IPBI =P^Jt*EB( IP6) 
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PRMVI  I,  LEV,  I  Pi:  I -DC  4PLXI Y(j 1 , Y f* 1  ) 

PRINT    99,    PRbi  iiLCV,  ITS)  .riRPbf  I  ,LLV,1P9)  ,EI  HPTILEV)  ,t8UPB) 
99    FCFMATl/'    PKCd    -*,1PC9.2,«     PKOU   A    RhO    ■  *,IP09.2.'    AT    t(KEV)     ■ 

.F10. J.*     RHO    ■',Fd.o//l 
96    CONTINUE 

IF( JtCOE.EU.O)       CC    TQ   8* 

PRINT    81 

OQ   82    I-NNT1.NT 

SOA^II*DCCNJu[£A&(I] | 

SS»1.0DQ-SAt>(  I  )*SB,W  1  ) 

All— cALP-HHAAl  ll-iASd  M'tBAU  1  J/SS 

A12MHAB1I1-SA3  1  t  ]*HBbl I]  l/SS 

A2[=>(HdA)I)-SaAtI)-h*lA(I)  J/SS 

A22— EBTAUhBBt  I  )  -S3  A U 1 *HA3(  II  l/SS 

PRINT    3,     TI'4E(  I  1  ,h  (  I  1  ,A11 ,  A12  ,  A<!  I ,  A22 

82  CONTINUE 
64    CONTINUE 

00    57    I*1,NNT1 

II-NT-I  I-ll 

SA8U1=SAS?ZU) 

HA3(I)=HAePZ( I) 

H6AUJ«H8A?ZUi 

HBB( I )  =  HB3PZ( I) 

SA3(  m  =  SA6PZ(II) 

HA3(  [I|»hAEP2II I) 

HMUli"H6AP2in) 

H3B( 1 i] =h63PZ( 1 1  ] 
57   CONTINUE 

IF(  IPNCH.E3.0)      GO  TO   73 

DO    7*    IM.NNTl 

PUNCH  52,  TIME!  II  tHAAtl)  .HflBd) 
74  PUNCH  52,  SAS I i>  ,MA3 ( 1  J ,HEA ! I L 
73    CCNTiNJE 

PRINT   "tOC,     (LASEUI)  ,1-1,20] 

PRINT   61 

61  FORMAT  I  '       NPZ         TIME. ..A  SAB. .  .hAB. . . HB A         HAA...h8S  ■/ 
DO    62    IT-ltNNTl 

62  PRINT    93,    T I  .ME (IT  1 ,R (IT  J , SABI IT  1 , HAS f IT ], h3A( IT ) ,HAA( IT i  ,h33 I 
PRINT    $<*,    Z2,EKEV,V, Vft.RHO 

IF(NCCOE.EQ.l)       CALL    CCUPEQ(NT,2) 
IF(NCGOE.NE.O)       00    TC   66 
PRINT    6T 

67  FORMAT!  '  1',///'    NPZ  TIME. ..ft  CA. . . C3 . . .PROS. . . Utfi T       '/ 
YU)*LCDO 

Y(2)=C.0C0 
Yt3)=0.0C0 
YI41-C.CC0 

CALL    QIFEQ(  T  IME{  1 )  ,  T  I  ME  (  2  I  Jl .  COO  ,  Y  ,  0.  2000  ,4  ,  1  .0-61 
00  68   I  t*2,:jt 

CALL    DEQ<  THE  (I  J,  TIME  I  IT)  ,  Y  ,HH,  4, 1 .  0-6) 
PRC&=Y(31*Y  (3)*Y(-t)»YU) 
UNI T^PR0e+Y(l)*r(l)*Y(2)*Y (21-1.000 

UNIT=UN1T+2.000*SAt(  I  T)*DCMPLXl  Y(  1  )  ,-Y(2]  )*OCMPLX  ( Y  (  3  1  ,  Y  ( <.)  ) 
./COEXPlCI»TIME(IT]*l£AL?-EETA) J 

68  PAINT    95,    TIME!  IT]  ,»i(  1T»,£Y(I  J, 1  =  1,^1  ,PRGE, UNIT 
PRS[2,LEV,I?3I»P3.0C 

BRP&(2,LEV, IPC) -PROS' E3( IP  6) 
PRMP( 2, LEV, I?3)=0OMPLAt Y13) »VI4J 1 

PRINT   99,    PR8(2,LEV. iPB),efiP3l2,LEV,IP31 ,£IMPT(LeVi ,£Bl IPBI 
66    CONTINUE 

IFl JCOOC.EC.O)       GO   TO    B5 

PRINT    8  1 

DO    33    I=NNT1 ,NT 

S8AU )*0CDhJG(SA3[l ) ! 

SW.QDC-SAaiIl*5EAm 

All  — EALP*MAAl  I  )-SA(i([  )*H6AI  I  1  l/SS 

A12=C-:AE(1!-SA3(  (l*r3fl(  Hl/SS 

A21=(H3A(I)-52AiI)*rAA(l) )/SS 

A22=-E5TAf(H3bl  II-SBA ttl+MABt  I  )  J/SS 

PRINT    3,     TIMEII),R(I),AU,A12,A21,A22 

83  CONTINUE 

85    CONTINUE       ' 
53    CONTINUE 

EKtV=EKEV«;2*Z2 

V=V*Z2 

RhO=»!-.0/Z2 

00    53    l-l.fMU 

TIME<I)=TIME(il/Z2/Z2 
53    TIME! II )=-TIMe| I) 
L001    CONTINUE 

[FUCCOE.Eij.oi     so  to  moo 

ou  a 7  IttCX'itZ 

DO    83    I-l.NRO 
XXXII  I*£|{1  ] 

PF2=1.000-PF1*PR3(  ClOX.LEV, I) 


U.2 


88    YYYUI-BRPLM  INJx  ,  LEV, J ) *PF2 
CALL    AREAUXX.O  Y,NRC,AA) 

87     SGMA( INOX,L£V)= I*UPI»AA 
1000   CON  I ,  v..-. 

101    FORMAT! ICX. 16151 
201    FCRMATi  1CX.8F10.5) 
333    FCRMATU0X,9(IX,  IP0I2.5I  ) 
301    FCRMATI '  1 ' , IQX, 20At, »  FILE    NC.    «'tl6» 

401    FaPMATl'     ',////25X,20A4///} 
DO    402    I  JK-l  |4 

PRINT   301,     (LABEHI),1-1,20),IFILE 
PRINT    411 
PRINT   101,       NLG 

PKINT    333,       U(IX),hX(IX),IX*l,NLG) 
PRINT   414 

PRINT  201,   ZA.ZB.RMAX.FMB 
PRINT  413 

PRINT    101.         NCOOE.ICCCE.JCCOE, IPNCH,IRED, 
.LIMIT,MM,IPNTl,IPNT2,NITP,NCA&,NCAfl 
PRINT    415 

PRINT -101,         NI  ,N£V,NRC,NA,\a,NT,NP,IFILE 
PRINT    416 

PRINT    201,       <EIMPTU),I*L,NEV) 
PRINT    417 

PRINT    201,       IES(  I),I=1,NR0) 
PRINT   401,     ILASEL(i), 1-1,20) 
00    10000    LeV«l,NEV 
00    404    JKL»I,2 
PRINT    10001 

(0001    FCRMATdQX,'       RHO  PROS. AMP PROS. . . .PRO  8   X    RHO  •  // ) 

00    10002    IPS-l.NRG 
10002    PRINT    10C03,    £3  ( I  P3)  ,  PRMP(  jKt  ,  LEV  ,  I  P3)  ,  PR  61  JK.L,  LEV,  IPS)  , 

.  5RP3I JKL,LSV,iP9) 

|0003    FORMAT!  10X, F 10. 5, 5A, 2 ( 1PD1 1 .4 , IX) , 21 2X , IP 01 1. 41  ) 
1F(  JKL.Et.2)       GC    TO    LOO05 
PRINT    lOCOt,    $GMAU«.L,LEV),£IMPTtLEV) 
(0004    F0RMATI/15X, '        TOTAL    NPX    CRG5S    SECT ICN/ EL ECTRON ( CM* "2 }    *',1P09.2, 
1       AT    e(KEV)     =',F12.5///) 
GO    TO   404 
(0005    PRINT    10006,     SOMA! JKL .LEV ), EIMPT <L EV ) 

10006    FGRMAT(/15X,«       TOTAL    NPZ   CROSS    SECTICN/EL£GTRQ^ICM»»2)     -'.IPOS    2 
1       AT    £UEV)    -',F12.5///J  U' 

404    CONTINUE 

(0000   CONTINUE 
402    CONTINUE 


STOP 

END 

SUBROUT INE  CMATRX 

IMPLICI T  R£AL»3IA-H,C-Z) 

CCMPL£X*16    5Ad. SSA.HASrMeA 

COMPLEX"  16       SAB  10,. -.At  IO.HbAIO,     SAu JO . MA3J 0, H3AJ0 

CGMPLSX*16       SA3il.^42IlirtOAll,    SAB Jl ,HA3J 1, H3AJ I 

COMPLEX' lo       $AexO,rii=XG,ribAXO,     SAi.  PO  ,HAoP  C.hSAPO 

COMPLEX* 16       SAoXl ,rtA5Xl ,HBAX1 ,     5 A3  Pi , HA3?  I , H3AP 1 

COMPLEX* U      SAe«0,HA3QO,rf6A;0,     SA5Z,HAEZ,r9AZ 

CGMPLEX*16       SAb51,HAoGl.H9*Qli     SASX,  <-AoX,h8AX 

COMPLEX"  15       SAoR.MAE.^.haAP. 

CCMPLEX*16      SA3PX.     HAWA,    H3APX,     SA£PZ,    HABPZ,    HeAPZ 

COMPLEX*  16       C.-i.T.X.TCGiX.TSlNX 

C0MPLEX*I6      GSAeO(15,151  ,    GHABQ (  15  ,  15  I ,    01-6*0(15,151 

COMPLEX'li       CSA31(15,15I.     GriAS U 15, 1  51 ,    &HB  Al  ( 15,  151 

C0MPLE»»16      FL.1013,20),    PLKlt3»20)f     PLI20),    PM(20),    JL(20) 

DIMENSION      VVI5.3)  ,P!3)  ,  JPJSl  3  )  ,D'.EG  I  3) 

DIMENSION      0PX0(3),O?Xl(3)  ,:LM(3)  ,Nri(3l 

CCKMON/IMPCTl/V,(<HG,a;i,Tl  ,P  I  -  M  >  ^^:T ,  SNT1 

CCMMCN/ iHPCT2/kl (  150)  .TIMEl  15  J)  ,  Zl  ,12 

COMMON/  I  fPCn/ESUOl  ,  El  MPT  I  LO),fiKC,N£V,LEV,  IP  3 

COMMCN/MZZ/SA2PZU5C1  .HABPZI15CJ  ,bfc  APZ11  50)  .HflCPZ  (  1  5i)J 

C0KHCVHXX/5A.i3/abCi,HAoPA(150l.tniAPXt  15CI  .HSdPXUSQ) 

COMHCN/HATRX/SASIlSOI  ,HA6U50)  .KUA(  1501  fHAA  (150  J  thflBl  1501 

CCMHCN/LAGU/XXl  32)  ,taX(32l  *M.5 

CCMMCN/ Wf  A/ e  ALP.  ZA,. \CCEF  (  10  I.AXPU  J  >.NX  A  I  I'Jl.MA 

CCMM0N/hFa/£3TA,Z8,BCCfcFI  10  )  ,  aXP  1 1  0  1  ,M8<  10  ) ,  HB 

COMMON/ P TMT l/DL  M V ( 3) , VC( 3»  3  > . AZtdZ i Z 13 1 

CGMHCWCCNSr/At25.25J  ,S  1  25  ,  25  )  ,  OP  I  30  )  ,  uU  I  30  ) 


NAl  =  NXA(f»A)  ♦ 
N01-NX31NB) 
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HHX*NAl+N91 

NM1-NMX+3 

C*OC  UPL  X ( 0. 000, J. 000) 
C I- DC MPIX (0.000,1.000). 
Cft*OCHPL  Xt  1 .  000 » 0 .  0901 
PL  t  I  J«CR 
PMUJ-C 

D3--0SJR7U.000) 
GMA2-V*Rt-0/2.000 
P(l  I-0.0C0 
'#(21-1.000 
P(3l—l.0O0 
ZU1--C.000 
ZI2J-2A-AZ 

zm-ze-e; 
olmvi  n-o.ooo 

DO    U    J- 1,3 

14  cv( j.n-c.ooo 

IFUP8.GT.il  GO  TO  499 
IFUEV.GT.l)  00  TO  499 
TtMECNNTll*TIHefNNTl-l)/50.000 

kllNNTl  ]=0S3RT(  V«  V*  T  I  *E  ( NNT  1)»T  I  HE  1NNTU  +  RHO*RHO] 

DFt II  «0. COO 

DH21-1.CD0 
DG(1 1*1 .000 
04t  21*1.000 

00    13    1=2,29 

0F(  I  +  Li  =CF<  11*1.000 

15  0G(I+1)=CF(  !*1J*0GI1) 
00    lb    1=1, NA 
NI«2*NXAII)«-1 
A1-<2.00C*AXP(I ) J**NI/OG(NI  J 

16  ACOEFII )=AC3£r( [) *OSCftT I OAES 1 Al) ) 
DO    17  J-liNS 

NJ=2*NX9(J)  *1 

B1«12.00C*5XP(  J)  )**.'.-/OG(NJ) 

17  3C0Ef(JJ=aCCEF{  J)»0S3?.T(0A85iai)  ) 

AUtl)*l.0OQ 

A(2,2J= 1.000 
3(1,2)=1  .000 
B(2t3l  — 1.  000/3.  000 
00    20   K=2,.-iM3,2 
AK=DFtK*ll 

A(K+I,1 )=i. OOQ/I A**1.COOJ 
81K*1,2)=3.SCO/(AX*1.COQ1/(AK*2.00Q) 
<K«K+1 

AKK«0F(KK+1) 

AfKK*l,2  )-3.CO0/U*K+2.0Q0) 
8( KK»  1,3  1^-5.000/  U.<*t-2.0D0)/(AK.<*4.aD0) 
00    20   1=2, <K, 2 
A  L*  OF  [1*1) 

AB*(2.0OC*ALM.CO0J/<2.JO0*AL-3.ODQJ 

A(K*l,L*lJ  =  -(2.0D0tAK-ALl*AIK*lf  L-l)/U.000*AK+ALJ*A3 
AL-Al+l.CDO 

AB=(2.0OC*AL«-L3u0>/I2.3O0*Al-3.COC) 

BiK+l,L*2)=-l3.000+AK-AL)*&U*l,l)/t2.00QtAK*AI_]*A(j 
LL«L*1 
AU.-AL 

A(KK*l,LL*U=-(2.00G*AKK.-ALL)"A(KK*l1L_L-J_)/U^OO*AKK_»iXL)»AiJ 
ALL=ALL+ 1.300 

AS«<2.00C*ALL*1 .000)/<2.0DO«ALL-3.0d:| 

B<KK'H»i-L*2)«-t  3.0C0*AKK-ALL)  «e  (  *X  +  l,  LL  )/  IZ.OOO+AK.K  J-AL.L  )  »AB 
20    CGNTINUfc 


499   CONTINUE 

00    500    IT-l.N.'.Tl 
|TT*NT-{ IT-11 
GMA1=V*V»TIME! IT1/2.0C0 
R2=RHIT]/2.000 

sauiq^c 

HAB10=C 

H3A10=C 

SABI  1-C 

HABIUC 

►OA 1 1 =C 

DO    510    I-l.NA 

NP«NXA( J 1*1 

SABJO-C 

MA6J0«C 

HBAJQ-C 

SABJ1-C 

HA3J1=C 
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HBAJ1-C 

00    520    J-1,',l3 

NQ-NXBt Jl 

0POS1-UXP! l)*3XP(J))*R2 

ONtGl-I  AXP<  I  l-QXPIJ)J»R2 

NHX"NP*NC 

km«-np*n;*2 

SADXO-C 
HABXO-C 
HBAXO-C 
SAflXl-C 
HA3X1=C 
H6AX1*C 
00    530    I  X»l  ,Ktf 

oo  9  .",■■■:  ,3 

0POS(H)  =  C?O51*-0LKYiMJ«ft2 

ONEG<«)  =  3N£«U1)L4Vl,11J*R2*P(M) 

DLM(H)«l.0O0tXXIlA)/CPOS(M) 

OH-OSCRT  (i3LM(M)*OLM(M)-l.CC0» 

0X*0.C00 

IF(0?GS( MJ.LT.l  .30+02)       DX»3EXP( -QPCS («) ) 

DPXO(MJ=OX/3P3S!MI 

OPX 1(M)=DX/DPCS(H)*CM 

DN-0.000 

IF10ABSI  DN£G(.1l  )  .  LI.1.5D+0Z1       CN=DNtGlH) 

TCOSX-OCMPLX(GHA1*OLM1MJ  ,Df.l 

T$INX*DCWLX(Q»*6MA2t0.0001 

R3=R2*QLMIM) 

ZZ=Z<M) 

VV(2,M)  =  iZ»(1.0:0*RC»tCV(l,M)tR0*(CVl2,,H)*-RO»CV(3,M))  )| 

VV13,M)=Pl.H)«Z-*n2*(CVU.H)*RC»l2.QGJ*CVU,MJ+RQ*3.J00»CYt3,,H]  )) 

VV(*,M)-ZZ*ft2*A2*lCV(2,l>O+fi0*3.0t)G*CV(3,H)) 

VV(5rM*P<M)*2Z*A2*A2*R2*CV<3tMI 

IF(  (H.GT.l).ANJ.(0lMV<M).U.l.CO-03J)    GO    TO    91 

T-COS«T  tT3I\X*TSI.\X  +  7COSX*TCOSX) 

X-TCCSX/T 

JlUXOnNtTI/T 

JU21»(JLUI-C0C0S(Tn/T 

PU2)*X 

PM(2)-C0  5CRT(l.aOO-X'X) 
JL(3)=3.0D0*JL(2)/T-JL(1) 
PL13)-(3.000*X*PH2)-PH  I)  1/2.0 00 
P.1t  3)=3.CaO*X«Pl(2)-2.'3QC«PM|I) 
FLMOH,  1)«A(  1,1)*JLI  ll*PLI  1) 
FLM1 IN,l)»S(li2J«JL(2)*PMU>*Cl 
FLMOIM,  2)=A(2»2l*JLl2)«PL(2J*CI 
FU4l(H?2>e(2,3)*JL(3)»PH<3l 
00    10  N"2tNKM,2 
Nl-N+1 
Mil-OPltM+l) 

JU"U+i}«I2.0C!0*F'U-L.OOO]*JLlM)/T-JUNl-l) 

PU  Nl  +  1)  =  1(2.  03C*F'I1-1.  000)  *X*PUNl]-(rNl-:.0OQ  J  «?UN1-1 1  1/FN1 
PH1NI+1  )=((2.  J3G*nU- 1.000)  *X *FM (N i J-FN 1*FM (N 1- 1)  )  /  I  PNl-1 .000) 
FLM0(M«Nl}-A(NWl)*JUlJ*PlUJ 
FLMI(M,Nil=B(Nl,2)*JLI2)*PNl2)»CI 
N2»NI*1 
FN2-QF1 N  1*1) 

JLIN2U  )»(Z.OOO«F,J2-L.O0O)*JLlN2l/r-JLU2-:.) 

PL(N2+l)*(l2.Ctuo«FV2-1.0D0)*X»PLIN2)-(i:N2-U0CJ)*PLirj2-l))/FN2 
PmW2»l)-H2.QDC«FH2-U0O0MX»P,H(»2)-FN2*PHIN2-t)  )/<FN2-l  .000) 
FIH0C,N2)  =  A(,>j2,2J"JL!2)*PU2)*CI  " 

FIM1I*,.\2J  =  31N2,3J*JU3)*PM<3) 
NN=NI 

DO    10   1-2, Nl. 2 
AL-OFlL+l) 

FLH0IM,N*i)  =  FI.M«3(1.N*U*A(N*ltL  +  H*Ji.(l.H  J*PL(L  +  ll 
FLKLIM,  N  +  l)  =FLMH.H,N*U+3l\*l,L  +  2)  *Jl  t  L*2  )«PM  t  L*2  )  «Ci 
LL-L-1 

AlL»OFI LL+l 1 

PLMO(H»NK*U«FLHO(M,«K*l)+AtNN+i  .LL  +  1)«jl  (LL+ll  +  PL  iLL*l)  *CE 
FUU<M,NN  +  L  ]*fl_.«UM,Nf.+  ll+BINN*lfH.  +  21*JULL  +  2)  *P*(LL*21 
10    CONTINUE 
GO    TC    9 

91  N>HW**1 

00    92   N-l.Nl 
FL"10lM,N)*Fl.*0(  ItN) 

92  FLMLIH,N)»FLU(1,.'4) 
9    CONTINUE 

100    CONTINUE 

DO    35    K»liNMX 

00    36   L»liMMX 

GSAbOIK.  L)  =  OPXO  11  J'FLMO  il.L) 

GhAa0(Ktii*AZ>';SAS0(K>L)4'0PX012i*(VV{2j2l  •Fl*0(2)  u 
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,*VVi3,2)*FL*JI.',l_  *1)»VV(4,21»FIM0(2,L*2)*VV(5,2)*FH0I2,1*3)) 

GHBAOIK.  l)  =  3Z»GSAS0lK.U+i.,l'X0131»tVVl.:.J)  *f  LN013.  Li 
,*VV 13,31 «FLM0< J,L*lJ*VVI4.3l*FLM0t 3, L *£ ) + VV( 5 ,3 ] »FM0( 3 ,L*3 )) 

GSABl<K,L)*JP*l(ll*FL»nU,l.l 

CHABl{KtUsAZ*GSAiU(A,L}*0PXl<2)*(  VVI 2 , 2 1 »FLM  1 1 2 , 1 1 
«»VV(3,2 I »FLM112,L*1  >  *W  <4,  2  1  *FLM  li  Z,L*2)*VV(5,.:)»FLrtU2,L*3)) 

GM6Al(H.,LI  =  ai*»JSA31U,Ll*Lit,XH3)*(  VV  12.31  »rLHl(3,L) 
,  +  VVt3,3l»fL*H3,L*W*VVI  4,3)*FLM113,L*2)  + VV(5,3)*FL*1.<3,L«3]  ) 
36    CGNTINUi 

00    35   CM, 3 

DPX0(Ll»UPX3(U*0LNIU 
35    OPXKLl-0PXl(L)*0t,'iUJ 

SA6P0-C 

HABPO*C 

HBAPO-C 

SABPK 

MABP1=C 

HBAPK 

00    540    lP'l.NP 

SABdO*C 

HABJO-C 

HBAQO*.". 

SABQ1=C 

HABQK 

HBAQK 

01*1.000 

00    550     13=1, Ng 

M«NP+NCtl-lP-IQ 

N2=IP*IG-1 

CCa*Dfti«<J/DS(Ifl)/3G(NQ-IC*l)*Ql 

SA8  3l=SA8QU>iSA61tM,N2)*CCC 

IFiNl.EQ.l)     GO    TO    551 

HABQl-HAeOt+GhA81<Nl-l,N2J*CCa 

HBAJl=H6Aai+GHBAl(Nl-l,N2)*CCQ*t^F(NCJ-DF(ia)  )/0F(HtJ) 
551  CONTINUE 

SA3R-C 

HABR=C 

H9AR=C 

CRM.OOO 

DO    545    lft-1,2 

Hl-NP+NQ  +  If.-IP-lQ 

M2*lP»I0*IR-2 

SAf»A«SA3R+GSAS0(Ml,H2)*CR 

IFM1.E0.1J     GO    TO    545 

HABa=HABR»-'iflA3C(«l-l  ,M2l*CR 

HBAR=H3AR+GHBA0(*1-1,H2)*CR 
545    CR=-CR 

SA5Q0=SAB«C+SABR*CCC 

HAB3G=HA300 t HA3ft*CCi 

H8AQC=HBACO+HBAR»CC£«(OF(SG)-OF(Ul)/0F(Nil 
550    Ql=-Ql 

CCP*DG(NP)/3Gt IFJ/0G1NP-IP+1) 

SaBPO=Sa5P0*SAcvT*CCP 

HASPO=HAEPC+HAa;C«CGP*iDFiMPl-OF(IPl 1 /Of  I NP) 

MBAPO=HcAP0*h£AJO*CC° 

SA8P1«SA6I*1*SAS«1*CCP 

HAB?1=HABP1  ►  HAB^.  I  *C  C  ?*<  OF  1NP  J -DF(  I  PI  i/DF(NP) 

H3APl-HBAPl*HJA;i*CCP 
540    CGNTINUt 

SA&X0-SAIXO+3AbPO*HX(IX) 

HABXO"HABXJ+HA3?0«kXI 1X1 

MftAXO=H6AX0  +  !-.eAP0*nX(  tXl 

SA6Xl  =  SArXl+iAiPl»WAl  I>  ) 

HA8Xl"HA8Xl*HA8Pl»rfXl IX) 

HBAXl=H£sAXI*hdA?l*riXl  IX  1 
530   CONTINUE 

CCJ  =  3C0tf  O  I  *IS2**INXA(  I  1*NX3UJ  J  1 

5ABJ0=5A£J0tSiL;X0»CCJ 

HABJO=HAdJu'-MAaxO*CCJ 

H8AJ0=HSAJQ»l-:ijAXG«CCJ 

SABJl*SAfiJ.'SAsXl*CCJ 

HMJ1^1A8J1#HABX1*CCJ 

M9AJl*HBAj: *^SAX1»CCJ 

520  continue 

cci— accefi  im03 
s«oio*sa6io+j;abjo*cci 

HA6iC=HAeiiJ+HAjJ0"CCI 
MBAlO-HeAIL*HSAJ0*CCI 
SABIl-SAcIH-SAaJl'CCI 
MABI l=HASi  L*HAiJl»CCI 
H8AM*rit)AU+H£AJl*CCI 
510    CONTINUE 

SA6Z  =  SAoIG*P.2 

HA6Z"-HA8I0/Z2/Z2 

H0AZ*CCCI\Jv,{-hJAIO1/Z2/Z2 
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SABX-SABI1**2 
HABX«-HAt3Il tlZtll 
HBAX»XCNJG|-M;)AI  Willi  11 

FORM    LINEAR    C0*8INATICNS 
COLTA*V*TIM£ [IT  )/Rlt IT) 
S0LTA**NC/K1(IT  J 

SA3PX(IT)  =    SA8X*CDLTA*iAaZ«S0CTA 
HABPX1IT  )=    MAax*COLfA*HAp;*S0LTA 
HBAPXll  T)  =    HHAX*CJLTA+hSAJ>SDt.TA 
■  SA8PZUT  )*-$A&X*S0LTA+SA8Z*CULTA 
HA3PZ< I T  )*- HA3X*SGLTA+HA3;*C0LTA 
H6APZUT)->-r.r.AS*3J(.T  =  :";A;«CL.TA 
SABPZUTT)  =  -OOONjG(SABPZliT)) 
HA6P2UTT)  =  -CCCNJGlHAePZt  ID) 
HSAPZUTT)=-UCG;jjG(HCAP;i  IT)) 
SABPXtITT)=DCCNJutSA3PxniJ  I 
HABPXUTT)  =  OCONJGlHABPX( IT )  ) 
HBAPXll  T1)  =  0CCN.jG(HeAPX(  IT]  ) 
500    CONTINUE 


CALL    HHS [ACOEF, AXP.NXA.NA, 3.HAA) 

CALL    KHPl3C0£F,3XP,NXB,NB,2,H3BPX,HflBPZ) 


RETURN 
END 

SUBROUTINE      riHS (CCEF , CXP ,NXC , NC. NV , MH J 

IMPLICIT    REAL'dtA-H,C-Z) 

CCMMCN/ IHPr.Tl/V,RHa,R*,U,Pi,NT,.iNT,NNTl 

C0MMGN7IMt-tT2/iUf  1501  (TIMEU50)  *  l\%  12. 

COMrtCN/PTNTL/DL^VO),  VC  I  3 , 3  )  ,AZ,oZ,Z(3) 

C0HM0N/CCNST/SI2=,25),Tl25,25),CFliOJ,DG(30J 

DIMENSION   CGcf INC) .CXPINC)  .NxCINC) 

OIMENSION    FOCI  ,FF(3J),G(30),3GI30) 

DIMENSION   CV13) (HH( 150) 

C-O.COQ 

Z2L«BZ 

IFINV.EG.2)       ZZl=AZ 

222-Z(NV) 

OLM=0lMV INV) 

CV(  1)«YCI1,NV) 

CV(  2J-VC  12, 'IV) 

CVt3)=VCl3,NV) 

00    100  'iT=>l,.NNTl 

ITT-NT-I  IT-1) 

R2"R11IT)/2.CD0 

HI-C 

oo  200   r=:,\c 

HJ»C 

N1«NXC( I  ) 
NU-Nl+1 

DO    300    J-l.NC 

HP^C 

NJ-NXCl J) 

NM-NIfNJ 

A-ICXPII  t*CXPIJ)>«*2 

B-A 

AA-A*DLM*R2 

B8=B-DLM*R2 

NM3=NM»3+1 

GX*C 

FFX*C 

GGX-C 

IFI (2.0  00*3) .Lc.  1.200+0 2)       GX=0EXP 1-2.000*3) 
IF1I  2. 0  J0*b  B)  .Le.  1.23  0*02)       GGX=CCXP I -2 .0  00 »B3) 
IF( IDAB3I3B-AA) ) .Lc.1.00+02)       FFX=0EXP(  B3-A  A) 
Ftll-l.OCO/A 
f-FI  1)=FFX/AA 
GIU=(1.C00-GX)  /3 
GGtl)-(l. 000-00X1/03 
SH--1.0OC 
DO    10    K-2fNM3 
F(K(«DF ( K)'F  IK-ll/A+f (1) 
FFU)-OFU)*FFlK-li/AA*FF(l) 
G(K)*iOFlKJ*GU-l)+&«-CXJ/8 
GGU)*I  DF 1X1*00  I K-1)*GM-GGX)/B8 
10    C-M«-GM 


00    *00    I P»l  iNI  1 

HQ"C 

DO    500    IC=1 ,NJ 
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H-lP+lQ-l 

tfl-CVIl)  •(!  F(N*lI*GGIM)-mN)»GG(MH)l 

Q2-CVC2I  •(FFl1W)*GGtM)-2.0D0*FFIN*lMGGlM»  W *FF ( N) *GGl M* 21  ) 

a3"CVI3  1MFFIN»-J)"GG<Ml-_t.GCG»<FF(N*2)»GG(HHl 
-FHN  +  l)*i,GlN*2M-fF(N)*i:G(M*3]  1 

Q-Z21»F  (M-ul^l  *Zi.2»ICO*R2"Ul*R2Mil2*K2*0.3l)  ) 

CO-DGINJ  1/DGtI JI/GG(NJ-1G»1] 

H0-HQ+Q*Ca 
500   CONTINUE 

CP'DGINl  1)/0GIIP1/0G(NI-IP*2J 

MP=«HP+HO»CP 
400    CONTINUE 

CJ-CCEFl Jl»(R2»-NM) 

HJ«HJ+HP«CJ 
300   CONTINUE 

CI-COEF(  I) 

Hl=Hl*Hj»Cl 
200   CONTINUE 

HHin)--hI/2.0[)0/Z2/Z2 

HH(  ITT]  =  hH<  IT) 
100   CONTINUE 

RETURN 

END 

SUBROUTINE       HHP ( CQEr i CXP ,NXC , NC.NV.hHPX  .HHP2J 

IMPLICIT    ftEAL»3< A-H.G-Z) 

COMMON/  t.V=CU/V,RHQ,RM,Tl,PI  ,NT,NNT,NNT1 

COMMON/ I MPC T2/ftl (ISC  I .TIME  I i50), 11,22 

CUMMGN/CCNST/ SI  25.^5)  ,T 1 25 , 25 ) ,G? t 30] .00  I  30 ) 

DIMENSION   CCEF(NC) .CXPtNC) ,NXC(NC) 

DIMENSION  F  1301  ,FF (30  ) , G< 3C  I , GG (30  J 

DIMENSION  CVi3),HHPX(15G),HHPU15C) 

COMMCN/PTNTL/QL-IV  l3),Vt(3,3i,A2,3Z,ZI3) 

C-O.ODO 

221-61 

IF<NV.£C.2J       ttX'AZ 

222-ZtNV) 

CLH-DLMV1NV) 

CV(1)«VCU,NV) 

CV(2J=VC12,NV) 

CV(3)*VC13fflV) 

00    100    I T=l .NNTi 

ITT*NT~( IT-1) 

R2*R1(IT J/2.000 

HIO-C 

Hll-C 

DO   200    I-l.NC 

HJO«C 

HJ1-C 

NI-NXCi I  J 

00    300    J=1,NC 

HPO*C 

HP1-C 

NJ*NXC(J)-1 
NM-NXC(  I  )*NXCf  J  ) 
NM3*NM«-j 

A-KXPI  !  J'CXP(J)  J*R2 
3=A 

AA*A*iXM»R2 
B6»3-0LM»R2 
GX-C 
GGX-C 
FFX-C 

IF(  [2.000*31  .LE.1.20CKS2J       GX=CEXP  (  -2  .000  «B  1 
IF( (2-000-B&) .Lc. L.200+021       GGX=0£XP ( -2  .OC0»fl3) 
IF(  (DA53(S3-A4J).LE.1.C0  +  'J2J       f FX=G£ XP( dB-AA) 
Flll-l.OCO/A 
FFI  U-FF^/ttA 
CCJ-d.COU-GXI/B 
GGI 11  =  11  .JGO-GGXJ/aS 
GM— 1.000 
DO    10    K=2,NM3 
F(K1«0F(K)*F(K-U/A+FUJ 
FFUJOI-U)  *FF!K-1)/AA*-FFI  1) 
GtKIMDF  U)  *GU;-l  I  ♦Gm-^XJ/s 
&G1KI=<  Of  Ul*GGU-U*GM-GGxj/EI3 
10    8H--6H 

00    400    IP-l.NI 

HQO-C 

HQ1-C 

DO    500    IC-1.NJ 
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HRO-C 
HR1-C 
CR- 1.000 
00    600    IR-l ,2 
HSO-C 
HSLC 
CS"  1.000 
00    700    IS-1.2 

N-NXC1I  )»N.\C[J)*IR+IS-IP-IG-Z 
«-IP.Ii+[fit IS-3 
0.0*FFIN)*GGIM) 

Gl-CVtl  I  *<F  F(N»1]*GC(H)-FF(M*GG(M*11  1 

Q2-CV(2MIFFtN*.;)*GG<M)-*.0CJ*rFIN  +  l]*CG(H*l)*FF(N:]*GG<H*2)  ) 
Q3-CVI3]»(FFfN*3)*GGfM)-3.CCQ*lFFCN*2)*aG(MU> 
-FFIN+l)*GG(M*£))-hF<N)*GG(M+3)  ) 

HSO-HSO+C 

N-NXC(r  M-NXCI  J)*W*IR-IP-IC 

H«IP*IQ«-2*IS-3 

GC»FF(N)*GGtM) 

G1=CV(1J  *(Fr(N+l)*GG(M)-FF<N)*GG<M+ll) 

02^CV  12  )*  IF  F  (,\f  2  )  *GG  t. M) -2.0C0»FFI  N*  1  )  »GG(  H*  I) +FF  I  N)*GG(M+2U 

Q3=CVi3)»(FF(^3)'GGtMl-j.ai]0*(FF(N*2J*GGl,^+l] 
-FFf Ntll*GG{M*2l)-FF(N)*GJ(H+3)  ) 

Q«ZZ1*F JN)*G(M)  tti2*lC0*a2*tm+R2*(Q2+R2*S3J)  ) 

H5l-=HS1  +  £*CS 
700    CS=-CS 

HR0*HR0+HS3 

HR1-HRI+HS1 *CA 
600    CR--CR 

CC-OG(NJ)/OG( I2I/DGINJ-IG+1) 

HQO»hGO+hR0*C3 

K01-HC1+HR1  *C0 
500    CGNTINUE 

CP=OG(NI  )/OG(IP)/OG(NI-IPU) 

HP0*HPO*hOO *CP 

HPl-HPl+hJI-CP 
400    CONTINUE 

CJ*CCEF{ J(«iR2**NM) 

HJO"HJO+HPO*CJ 

HJl«HJl+i-Pl*CJ 

300  CONTINUE 
CI-CCEF!  I) 
HIO-MlO*t-JO*CI 
HU«HII  +  HJ1*CI 

200    CCNTINUE 

MZ«-3.COC*riI0/2.C00/Z2/Z2 
HX=-3.Q0C*HU/*.O0O/Z2/Z2 

CO=V*V*T,,Vc(ir)*TI.-tEIIT)/Al(nj/ftUITJ 

SO-RMC*RhG/KlllTj/ftUIT) 
HHPX IIT) =CG*HX*SO*HZ 
HMP2(IT)^C3*HZ»S0*MX 
HhPXtITTJ=HH?X(  IT) 
HHPIlITTJ^HrlPZUTJ 
100    CONTINUE 

RETURN 

ENO 

SUBROUTINE    DEMT.Y.YP) 

IMPLICIT    REAL'S     U-H,0-Zi 

COMPLEX*  16    SStA,8fAOCT,eOOT",£Nt",C«r 

COMPLEX*  16    S12t$21tH12,H21(SABtS6AtHAB«H&A 

CWH0N/HATRX/S12U501  ,H12  (  1501  ,nZi(  150)  ,Hll  (150  ),  HZ2{  150) 

CCMflCH/ jMPCTl/VffihG,RM,TZ,P I  ,  NT  ,.NNT  ,NNT1 

COHMCN/MFA/EALP  rZA 

CflHH0H/UFa/£5TA«ZB 

CCMMCN/I^PCTZ/*)  153),  TIME!  150) 

0IMENS1QN    Z(150)fAkG(    5),VAL(    5 ) , Y 14) , YP ( M 

CMI«DCMPLXI 3.0OO,-l.ODO) 
DO    301     t  M."U 

301  Z(I  )=S12(I) 

CALL  CATSMIT,TIME,Z,NT, 1, ARG,VAL,5  ) 
CALL  DALllT.ARG, 7AL , Z 1 . 5 , 1 . £-5 , IER  ) 
DO    302    I»l( NT 

302  Z(I)  =  S12  II)*CMI 

CALL    CAT  SMI T , T I  ME ,Z , NT,  1 ,ARG,VAL,5) 
CALL    DAL  iIT,JRG,VAL.Z2, 5. 1.E-5.IER) 
SAB=DCMPLXfZl, Z2) 
OC    303    I-l.-JT 

303  ill 1-HliiIJ 

CALL  DATSM<  I  ,  T I  HE ,1 1 NT, 1 , ARG, VAL ,5  I 
CALL  CAL  IIT  i  AhG  t  VM.tll$3,  1.L-5.IER) 
OC    304    I-l.NT 


\-y 


30*    Zm-H12m*CHI 

CALL     CATSMir.TIME.Z.NT.l.AKG.VAL.S) 

CALL    OALHT,Aaii.VAL,Z2,5,l.E-5,lER)  ' 

MAB«CCMPIX(Z1,Z2) 

00   305    I-l.NT 

305  Z(I)-H21in 

CALL  0A1  SMI  1, 1 1  ME, 2, NT, 1,ARG,VAL,5) 
CALL  0ALItT,A,U,,VAL,Zl,5,l.E-5,IER» 
00    306    1  =  1, NT 

306  ZID-H21  U)*CMI 

CALL    OATSMl T,1IM£,Z,NT,1  .ARG.VAL.5) 
CALL    0ALlfT,ARG,VAL,Z2,5,  l.E-S.IER) 
HaA-0ClPLX[Zl,Z2> 
00    307    I-l.NT 

307  ZIU-HU  (I) 

CALL    OATSMt  T,nME,Z,NT,l,ARG,VAL,5) 

CALL     DAL  I[T,A*G,VAL,Z1,5,1.E~5,IER) 

NAA*Zl 

DO    308    I-l.NT 

308  2U)  =  h22<  I) 

CALL  CATI.-M  T  ,T  I  ME  ,  I  ,NT  ,  1  ,AfiG,  VAL  ,5  I 
CALL  DALl(I,ARS,VAL,Z2,5,:.£-5,IER) 
H6B-Z2 

SBA-OCCNJG(SAB) 

ENT-0C4PLXI 0.000, T*t=6TA-£ ALP)) 
SS»U.OO0-SAB*SbA)« 10. 0  00,1. 000) 
SS-l.OOO/SS 
A-OCMPLX  i Y ( 1) ,Y (2) ) 
B-GCMPLXIYO) ,Y14)> 

AOOT=SS«'U*(HAA--iAfl*HaA) *a* <HA£-SA9»h85 )»CO£XP( £NT 1  ) 
BOCI-SS* (3*lHoB-SEA*hA3)*A*(HBA-S£A*hAA]*CJ£XP[-ENT)) 
YP(1)*A0CT 
YP12)=ADCT*CMI 
YPi3)-S0CT 
YPC)=6DCT*CMI 
RETURN 
END 

SUBROUTINE    CGUPEQ ( N, NCCOE) 
IMPLICIT    REAL*9     U-H.C-Z1 
COMPLEX*  16    GG,SJM,A.X,ENT,U,CMI,PRMP 
C0MPLEX*16    Xi9(60C),iSA(6CC) 
COMPLEX* 16    CAI6C0)  .CcloOO) , GcLTA(600) 
C0MPLEX*16    S12, S2L,H12,ri2; 

COMPLEX  •  U    $ABUOO),SBAUOO),HAfiUOO>ttt9AUO01 
COMPLEX* 16    ALPltOC),3TAIeOO),AA(600),S3(6  00),CA(600J,C3(600) 
C0MPLE».*16    Y1,Y2,Y3 

COMMON/ MATHX/S 12 (150) ,K12( 150 } , H21 ( 150) ,h  11 1 1 50 ) , H22<  1501 
CCMMQN/CPTN/IIMIT,MM,  IPNCh,  I  RED,  IPNT1.IPNT2  ,H  IT  P,  \0AB,NCA8 
OIMENSICN   HAA(600(,l-Sfi(60C] 

OIMENSICN    1AG(10),VAlUQ)  ,  T  [HE  160G  1 ,  R(  t>00  ) ,  21  150) 
COMMON/ IMPCTl/ ^ ,RHC 
CCMMC.V  IKPC72/RAU50),TU50) 

COMMON/ I MPCT j/£Sl20) iEIMPTI 1  J ) ,NKG ,NEV, LEV,  IPS 
,,PRB(2,IC,20),6')P£C2,1J,2C1  ,PRMP  I  2  ,  10,  20) 
COMMCN/WFA/EJLP.ZA 
CGMMON/kfe/E£TAiZa 


CHI-OCMPLXlO.ODO.-l.OCO) 

SET    UP   TIMI    VECTOR 

Tl-TU) 

H—  16.00  0*11/1  3  l.COO'MMJ 

K*0 

MM1^MM*1 

92  CONTINUE 

00   91    I«1,MM1 
91    TIMEU*MM+l]  =T1*U-L)*H 
K»K*1 

IftK.GT.4)    GC    TO    93 
Tl-TIMEf K*HM*1) 
H«H/2.000 
GO    TO   92 

93  CONTINUE 
NNT«5*«H 
NNT1=NNT+1 
NT-2'NNT+l 

DC   98    I-1.NNT1 
II-NT-U-1) 
TIMEI II I»-TIHE1 I) 
R(ll»OSQRT{RhO**2+(V*TrME(I))**2J 
RIII  )=RI  I) 
96    CONTINUE 

£KCV-25*V*V 
NK»2*N-i 
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00    500    K-l.NNTl  * 

KK-NT-U-ll 

00    301    I-l.N 

301  : i : 1-512(1) 

CALL    OAT  SN(  TIME  fklrT»Z.K.  l.ARGtVAU  51 
CALL    DALI    <nMi.U),ARG,VAL,Zl,5,l.E-5,I£R) 
00    302    I -UN 

302  ZI1I-S12  II)*CMI 

CALL    GATSM|TlM£(is),T,Z.N,l,ARG,VU,5) 
CALL     CAL  I    ( TlMcUl ,ARG,VAL ,  Z2  ,  5 , 1 . E-5 , 1 ERJ 
5AU(K)  =  0CMPLXlU,Z2) 
00    302    1*1,, N 

303  2(1  )=H12(I> 

CALL    DATSM(TIME(lO  ,T,Z,N,1  ,ARG,VAi.,51 
CALL    DALI    I UMH*J,ARG,VAL,Z1,5,1.E-SIERJ 
00   304    I-l.N 
30*   ZU)*H12<11  *CMI 

CALL    CAT  SMI T  IMS ( M , T , Z,N , 1 , ARG , VAL  ,  5 ) 
CALL    OALI    t  TIME  (K)  ,  ARG, VAL, Z2, 5 , 1 . E-5, I ER J 
HAB(K)=0CMPLX(Z1,Z2) 
DO   305    I >L,  N 

305  Z.(I)*HZi(l) 

CALL    0ATSM(TI1E(k)fT,Z,.N,l,ARG,VAL,5l 
CALL    DALI    ITlRff(KltARG(VAL,£lfSiL.e-5t(6R] 
00    306    1=1, 'I 

306  Z(1)  =  H21  (I)»OU 

CALL    0ATSH(TlME(K),T,Z,N,l.ARGiVAL,5l 
CALL    DALI    ( TIHElKl , ARG, VAL , Z2 , 5, 1. E-5, I ER1 
HIAIKI*DCVLX(Z1,Z2) 
00    307    I«l,N 

307  2t 1 l=HI III) 

CALL    0ATSM(TIMc(K),T,Z,N,l.ARG,VAL,5) 
CALL    OALI     I  TIMcl.O  ,  ARG, VAL  ,  Zl , 5 , 1 . E-5 ,  I  ERJ 
HAA(KJ=Z  1 
00   308    1*1, H 

308  Z(I)=H22(I) 

CALL    0ATSM(TIME(K),T,Z,N,1,ARG,VAL,5I 
CALL    OALI    (TIMclM  ,ARG, VAL , Z2, 5 , 1 . E-5 , 1  Eft  1 
HS6(K)=Z2 
500    CCMTIMJ5 

OC- 1.000 

IF(NCC0E.cg.2)       CC=- 1.000 
DO    600    i=l,M>,TI 
11-NT-l  1-1) 
SBA(II=DCCNJG1SA8(I)) 
SA3(  I  l)=CC0NJi,l  SAs(I  J  J*DC 
5  9A( I I)  =  CCGNJG(3SA1 I  )  )  *0C 
HABI  m-rCuNJGlHAatll  )*0C 
H3AU  I)«QCCNJQtHSA1I  )  )*0C 
HAA(II)  =  hAAUJ 
HMIIll«h88ltl 

SS*1  .000-SA31 I)*S5A<  I) 
AA1 I )=lnAA( I)-SA3II)-MBA( I ) J/SS 
8&U  l  =  (HS3(  I  I-S3AI  I )*FA3I  I  )  1/SS 
IF(I.EG..\NT1J       GG    TO    600 
AA( II )=OCCNJG( A£( 1)1 
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APPENDIX  III 

Appendix  III  includes  the  publication  of  which  this  work  is 
an  extension. 
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Two-state  atomic  expansion  methods  for  electron  capture  from  multielectron  atoms 
by  fast  protons 

C.  D.  Lin,  S.  C.  Soong,*  and  L.  N.  Tunnell 
Department  cf  Physic;,  Kansas  State  University.  Manhattan,  Kansas  66506 
(Received  '.?  May  WTh,  revised  manus    ipt  received  13  October  1977) 
The  two-state,  two-cenKr  atomic  expansion  method  of  Bales  for  charge  transfer  is  generalized  to  calculate 
crow  sections  of  electron  capture  from  inner  shells  of  multielectron  atoms  by  fast  protons.  In  the  limit  of 
small  capture  probabilities,  the  connections  of  the  present  approach  with,  various  first-order  Born  theories  are 
investigated.  It  is  shown  that  these  Born  methods  for  electron  capture  of  multielectron  atoms  can  be  obtained 
from  the  present  approach  by  further  approximations.  The  method  is  applied  to  obtain  cross  sections  of 
electron  capture  from  C.  N.  O.  Ne,  and  Ar  atoms  by  fast  protons  in  the  energy  region  where  the  projectile 
velocity  is  nearly  equal  to  the  K -shell-electron  orbital  velocity  of  these  a 
compared  with  experimental  measurements. 


.  Results  of  the  calculations  are 


I.  INTRODUCTION 

The  transfer  of  an  electron  from  target  to  pro- 
jectile during  ion-atom  collisions  is  the  subject 
of  recent  experimental  and  theoretical  investi- 
gations.  It  is  known  that  this  process  plays  an 
important  role  in  vacancy  production  in  ion-atom 
collisions.1 

For  collisions  in  which  the  projectile  velocity 
is  much  smaller  than  the  characteristic  orbital 
velocity  of  the  active  electron  to  be  transferred. 
the  molecular  theory  (MO)  of  Fano  and  Lichterr 
has  been  applied  successfully  to  explain  quali- 
tatively the  observed  low-energy  ion-atom  col- 
lision phenomena.1    Recent  developments  by  Brtggs 
and  Macek,*1  and  by  Taulbjerg  et  at.'  have  put  the 
MO  theory  in  quantitative  form  tor  A- shell  va- 
cancy transfer  in  symmetric  and  asymmetnc 
ion-atom  collisions. 

For  East  collisions  such  that  the  projectile  ve- 
locity is  comparable  to  or  greater  than  the  char- 
acteristic orbital  velocity  of.  the  active  electron, 
the  capture  of  bound  electrons  from  the  target 
atom  is  less  well  understood.    Whereas  ttie  first 
Born  approximation  or  its  variations  have  been 
useful  in  describing  excitation  and  ionization  in 
fast  collisions,*  considerable  contention  still 
persists  in  the  application  of  the  first  Born  theory 
in  rearrangement  collisions,  particularly  for  the 
electron-capture  process.9,1*9    Even  in  the  sim- 
plest resonant  charge-transfer  process.  p*-H(ls) 
-H(Is)+/>,  the  various  first  Born  theories  predict 
substantially  different  capture  cross  sections. 
Attempts  to  generalize  these  first-order  Born 
theories  to  multielectron  ion-atom  collisions 
create  even  further  questions. 

Historically,  the  p  +H(1s)-H{1j]  *p  resonant 
charge  exchange  has  been  calculated  in  the  Oppen- 
heimer,9  Brinkman,  and  Kramers  (OBK)10  approxi- 


mation.   In  the  OBK  approximation,  the  nuclear- 
nuclear  interaction  was  completely  neglected  In 
evaluating  the  first  Born  transition  amplitude. 
This  is  justified  in  that  the  nuclear-nuclear  in- 
teraction can  only  deflect  the  trajectory  of  the 
projectile  and  does  not  change  substantially  the 
total  electron-capture  cross  sections.    Later, 
similar  first-order  approximations  were  adopted 
by  Bates  and  Dalgarno,11  and  by  Jackson  and 
Schifl"  (JS),  but  with  the  mternuclear  potential 
also  included  in  the  first  Born  amplitude."    As 
argued  by  Bates  and  Dalgarno,  the  complete  nu- 
clear-nuclear interaction  is  included  in  the  per- 
turbation on  the  grounds  that  tnis  would  compen- 
sate to  some  extent  for  the  ncnorthogonality  of 
the  wave  functions  of  the  initial  and  final  states, 
and  would  consequently  lead  to  more  realistic 
cross  sections."   Interestingly,  the  cross  sections 
calculated  in  this  method  are  much  smaller  than 
those  calculated  by  the  OBK  method  and  agree 
much  better  with  experimental  data. 

Recently,  both  the  OBK  and  JS  methods  have 
been  generalized  to  calculate  electron-capture 
cross  sections  in  multielectron  ion-atom  colli- 
sions,U"'T    Like  the  prediction  in  the  proton- 
hydrogen  resonant  capture,  the  OBK  approxi- 
mation always  predicts  cross  sections  much 
higher  than  experimental  results.    Diverse  efforts 
have  been  attempted  to  correct  this  either  by 
reducing  the  OBK  prediction  by  a  semiempirical 
factor,18'19  by  semiempirical  method,-'0  or  by 
introducing  different  amounts  of  core-core  inter- 
actions.21 

The  straightforward  generalization  of  the  JS 
method  includes  the  interaction  between  the  two 
bare  nuclei  in  the  perturbation.12*  l%l~  This  meth- 
'  od  apparently  fails  because  the  predicted  capture 
cross  sections  are  a  few  orders  of  magnitude 
too  high.    For  example,  cross  sections  for  the 


16tb 


125 


TWO- STATE    ATOMIC    EXPANSION    METHODS    FOR    ELECTRON    CAPTURE. 


capture  of  rC-shell  electrons  of  Ar  atoms  by 
protons  are  predicted  to  be  about  320  times  Lirger 
than  experimental  data.113 

Much  of  the  discrepancy  mentioned  in  the  above 
Is  due  to  the  fact  that  no  proper  allowance  had 
been  made  for  the  nonorthogonality  of  the  initial- 
and  final-state  wave  functions.    Bates3*  was  the 
first  to  note  that  if  the  nonorthogonality  is  properly 
treated,  the  difficulty  formally  associated  with 
the  choice  of  internuclear  potential  can  be  re- 
solved. 

In  this  paper,  we  extend  the  method  of  Bates  to 
electron  capture  in  multielectron  ion-atom  col- 
lisions within  the  independent-electron  approxi- 
mation.  This  approximation  treats  only  the  elec- 
tron to  be  transferred  as  active;  the  others  are 
treated  as  passive  and  provide  only  screening 
during  the  collision  process. 

In  Sec.  II,  the  Bates  method  is  reviewed.   The 
connections  of  Bates    method,  in  the  limit  of 
small  capture  probability,  to  the  different  first 
Born  methods  are  discussed  in  Sec.  III.    in  Sec. 
IV,  this  method  is  appiied  to  the  capture  of  K- 
shell  electrons  of  C,  N,  O,  Ne,  and  Ar  atoms 
by  fast  protons.   The  validity  of  the  present  meth- 
od is  discussed  in  Sec.  V. 

II.  ATOMIC  EXPANSION  METHOD 

Developed  by  Bates  in  1958,  the  atomic  ex- 
pansion method  was  designed  to  properly  account 
for  the  nonorthogonality  of  the  initial-  and  final- 
state  wave  functions  in  the  electron-capture  pro- 
cess. 

In  the  Bates  method,  the  motion  of  the  electrons 
and  the  nuclei  in  ion-atom  collisions  Is  separated 
by  using  the  perturbed-staticnary-state  (pss) 
method^3;  the  motion  of  the  nuclei  is  treated  clas- 
sically.  The  attractive  nuclear  field  experienced 
by  the  electrons  during  the  collision  depends  upon 
the  trajectories  of  the  two  nuclei.    In  this  paper, 
we  are  dealing  with  high-velocity  projectiles; 
thus  straight-line  trajectories  will  be  adopted. 

To  study  electron- capture  problems  in  multi- 
electron  ion-atom  collisions,  many  approxima- 
tions can  be  made  if  only  the  capture  of  inner- 
shell  electrons  is  to  be  treated.    In  principle,  the 
Bates  approach  can  be  used  to  deal  with  multi- 
electron  wave  functions.    However,  it  has  been 
shown  that  electron  correlation  and  exchange 
effects  are  not  very  important  for  the  electron- 
capture  process  in  the  proton-helium  system. !,"M 
We  thus  expect  the  independent-electron  model  to 
be  adequate,  particularly  for  capture  from  the 
inner  shells  of  atoms. 

In  this  approximation,  the  wave  function  of  the 
active  electron  is  governed  by  the  time-dependent 


Schrodinger  equation 


a) 


where 


/f,  =  _!v*_Vrx-Zs/ra  (2) 

is  the  effective  Hamiitonian  of  the  active  electron. 
In  Eq.  (2),  ZA  and  Ze  are  the  effective  charges 
experienced  by  the  electron;  rA  and  rB  are  the 
positions  of  the  electron  with  respect  to  the  target 
A  and  to  the  projectile  B,  respectively.    Atomic 
units  will  be  used. 

Equations  (1)  and  (2;  are  to  be  solved  with  proper 
boundary  conditions  at  t  =  -«.    The  method  adopted 
by  Bates  is  to  expand  *{*,  0  in  terms  of  the  trav- 
eling eigenstates  of  the  target  and  of  the  projec- 
tile.  The  following  derivation  can  be  found  in 
the  paper  of  Bates22  or  in  the  book  by  McDowell 
and  Coleman.5    We  will  summarize  it  below  for 
later  discussion. 

The  time-dependent  wave  function  •£(?,:)  can 
be  expanded  generally  as 

»(*,*)■  ^a^O  <t>„(rA)exp[-i$v  •  r  +  iv*t  +t„t)) 


xexp[-i"(-iv'  r  *■  $  v1 1 +  ZJ)] , 


(3) 


where  <$„(  rt)  [0„(  rfl)]  is  the  stationary  eigen- 
function  of  the  target  (projectile)  with  eigenen- 
ergy  €„  {<„),  v  is  the  velocitv  of  the  projectile  in 
the  laboratory  frame  and-?  is  the  position  vector 
of  the  electron  with  respect  to  the  midpoint  of 
the  internuclear  axis.-'   In  Eq.  (3),  the  velocity- 
dependent  exponents  are  introduced  to  preserve 
trans lational  invariance. 

To  describe  electron  capture,  the  simplest 
approximation  to  Eq.  (3)  is  to  retain  only  the  two 
states  which  are  relevant  to  the  capture  process, 
the  initial  state  of  the  target  and  the  final  state 
of  the  projectile.    To  simplify  the  notation,  we 
rewrite  Eq.  (3)  (in  a  self-evident  way}  as 

*(r,O  =  aU)0Aexp[-i(£v-  r +  $v2t +iAt)] 


~&(<)e-flexp[-t(-iv 


-iv't* 


■  *>I. 


(4) 


Substitution  of  Eq.  (4)  into  Eq.  (1)  yields  a  set  of 
coupled  equations: 


Hl-s-)d  =  <i(hAA-sABhSA)  +  b(hAa-sA3hBB)e1"', 

i 
i{l-s1)b  =  b(haB-.<BAhAB)  +  a(hBA-$aAhAA)e^i'^', , 

where  ^S<A-<B  and 


(5) 
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Kab\  ^l{-Za/rB)4>Ae^rt)dr , 

k*B=  f<fi-B(-ZA/rA)6adT, 

and  where  the  integration  is  over  the  electronic 
coordinates.    The  identities  sBA  =  s'B  and  s- 
=  sABsBA  are  obvious. 
Introducing  the  transformation 
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Irom  Eqs.  (8)  by  first-order  approximation.    If 
we  set  dA{l)  =  \  then  da{+  •*>)  is  given  by 


(6) 


Eqs.  (: 

)  are  simplified  to 

id\ 

"AB  *  SA3':33    -fu 

1  -s' 

id, 

kBA-S3At>AA.    --1 

where 

5. 

J  [a(t')-P(t')}dl' 

a  nd 

(7) 


(8) 


(10) 


a(f)«  *,!,-».»  «*M)/(l-«*>, 

Equations  (8)  are  to  be  solved  with  the  boundary 
conditions  dA(-*)  =  \,  <f8(-«)  =  0  for  each  impact 
parameter  p  and  each  energy.  The  total  capture 
cross  section  per  atom  is  obtained  from 


9*2tNa  f    pdppip), 


(11) 


where />(p)  =  \b{^  «)\-  is  the  capture  probability 
and  NA  is  the  number  of  equivalent  electrons  in 
the  target  shell  from  which  the  active  electron  is 
captured. 

HI.  CONNECTIONS  WITH  OTHER  BORN  APPROXIMATIONS 

For  collisions  in  which  the  capture  probabilities 
are  small,  the  capture  amplitude  can  be  solved 


d>1*  ■*—*£' 


t  zJ,?.A   AA 


i  - 


(12) 


In  Eq.  (12),  the  transition  amplitude  dg{*  «)  can 
be  easily  shown  to  be  independent  of  any  arbitrary 
internuclear  potentials  added  to  the  definitions 
of  the  matrix  elements  !tBA  and  h^  .   This  is  due 
to  the  fact  that  the  nonorthogonahty  of  initial  and 
final  states  has  been  properly  accounted  for  in 
Eqs.  (5)  through  the  introduction  of  overlap  in- 
tegrals sAg  and  s3A. 

The  6  term  in  Eq.  (12)  represents  the  distortion 
of  the  electron  wave  function  in  the  nuclear  field 
of  the  projectile  and  the  target  in  the  two-state 
atomic  expansion  approximation.    If  this  distortion 
is  neglected,  then  Eq.  (12)  becomes 

dB(+*>)  =  -ij        SA  i_^.~i 


,ld/. 


(13) 


For  high-velocity  collisions,  s2 
then  be  written  explicitly  as 


:1,  Eq.  (13)  can 


dB{+ 


i  J'dldT6Bi 


Z.l 


A 


x0Aexp[-i(v.  T-wO}  ,       (14) 

in  a  form  similar  to  the  first  Born  transition 
amplitude  with  {ZB/rB)-!iAA  as  the  interaction 
"potential."    For  capture  from  the  K  shell  of 
target  A  to  the  K  shell  of  projectile  B,  hAA  is 

hAx  ■  iZB/R\-i  ♦  (1  -ZAR)e'2'**] .  (15) 

For  the  charge-exchange  p  *  H(ls)- tf(ls)*/;, 
ZA  =  Z3  =  1,  Eq.  (14)  becomes  identical  to  the 
distorted-wave  approximation  for  electron  capture 
derived  by  Bassel  and  Gerjuoy."   Thus,  Eq.  (14) 
is  the  generalization  of  their  method  to  arbitrary 
ZA  and  Z3.    Incidentally,  Eq.  (14),  or  more  rig- 
orously, Eq.  (13),  can  also  be  derived  from  the 
usual  first  Born  theory  if  the  final-state  wave 
function  is  required  to  be  orthogonal  to  the  initial- 
state  wave  function.    Thus,  we  show  that  in  the 
limit  of  small  capture  probabilities,  the  two- 
state  atomic  expansion  method  of  Bates,  the 
distorted-wave  approximation  of  Bassel  and  Ger- 
Jouy  and  the  first  Born  theory  are  all  equivalent 
if  the  orthogonalized  final  state  is  used  in  the 
first  Born  theory. 

To  explore  the  meaning  of  Eq.  (14)  in  more 
detail,  we  plot.  In  Fig,  1,  -RhAA/Za  as  a  func- 
tion of  ZA  R,  where  R  is  the  internuclear  sep- 
aration.  The  function  hAA  approaches  zero  as 
ZA  R-0  and  approaches  -Z B/R  as  ZA  R-*.    If 
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reasonable  total  capture  cross  sections  [as  com- 
pared with  that  obtained  from  Eq.  (13)].    How- 
ever, it  must  be  realized  that  both  methods  will 
fail  at  small  p  or,  correspondingly,  at  large 
scattering  angles.    Also,  if  the  total  capture  cross 
section  comes  primarily  from  small  impact  pa- 
rameters, then  the  total  cross  sections  calculated 
from  these  two  methods  will  be  wrong  . 

It  might  then  be  speculated  that  the  OBK  method 
is  a  better  approximation  for  collisions  at  small 
impact  parameters.   This  is  not  quite  true.    For 
small  impact  parameters,  the  distortion  of  the 
active  electron  wave  function  by  the  projectile 
Is  very  large  and  cannot  be  reasonably  approxi- 
mated by  any  first-order  theory,  even  such  as 
Eqs.  (8)  and  (13). 

IV.  A'-SHELL  ELECTRON  CAPTURE  OF  C.N.O.Ne. 
AND  Ar  ATOMS  BY  FAST  PROTONS 

The  two-state  atomic  expansion  method  has 
previously  beenapplied  only  to  simple  atomic 
systems.    (See  the  review  by  Bransden.*)    By 
comparing  with  experimental  data  or  with  more 
elaborate  calculations,  it  is  concluded  that  the 
pimple  two-state  calculations  predict  reasonable 
capture  cross  sections  when  the  projectile  ve- 
locity is  not  very  far  away  from  the  characteristic 
orbital  velocity  of  the  active  electrons. 

Theoretical  calculations  of  electron-capture 
cross  sections  from  multielectron  atoms  have 
been  limited  to  the  OBK  or  other  Born  meth- 
ods. "*M   The  results  of  these  calculations  are 
often  unreliable.   We  have  applied  the  two-state 
atomic  expansion  method,  under  the  independent- 
particle  approximation  as  outlined  in  Sec.  II,  to 
calculate  the  eleciron-caj-tjre  cross  sections  of 
Lie  K  shell  of  carbon,  nitrogen,  oxygen,  neon, 
and  argon  atoms  by  fast  protons. 

The  numerical  method  is  straightforward.    A 
screened  hydrogenic  Is  wave  function  with  effec- 
tive charge  ZA  *Z  -  jfe,  where  Z  is  the  nuclear 
charge  of  the  target,  is  used  for  the  target  atom 
and  a  bare  nuclear  charge  Za  is  used  for  the 
projectile.    The  matrix  elements  of  Eq.  (6)  are 
evaluated  by  transforming  the  two-centered  inte- 
grand to  prolate  spheroidal  coordinates  (.\,  \t,  *).M 
Integrations  over  *  and  u  can  be  carried  analyt- 
ically.   The  integration  over  x  is  done  using  24- 
point  Gauss- Lagtur  re  quadrature,  although  the 
32-point  formula  has  been  used  also  to  check  the 
accuracy  of  the  integration.    The  capture  ampli- 
tude M+*)»  or  equivalents  <f(-»),  is  obtained  by 
solving  the  coupled  Eqs,  (8),  either  by  direct 
numerical  integration  or  by  an  iterative  method. 
The  latter  method  is  more  suitable  for  calculating 
small  amplitudes.    In  particular,  the  first  it- 
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FIC.  1.    Plot  of  -RhAA/ZB  a3  a  function  of  ZAR. 

hAA  is  chosen  to  be  zero  in  Eq.  (14),  we  recover 
the  usual  OBK  approximation.    From  Eq.  (13), 
this  is  equivalent  to  neglecting  the  nonorthogonal- 
ity  of  initial  and  final  states  as  was  done  In  the 
OBK  approximation  (by  setting  sfli4  =  0).   On  the 
other  hand,  if  the  large-fl  limit  of  hAA  is  used 
in  Eq.  (14),  the  expression  in  the  squared  bracket 
becomes  [-ZB/rB+ZB/R],    In  thep+H(ls) 
-H(ls)+£  capture  problem,  it  becomes  [  -i/r3 
+  1/K]  and  the  second  term  resembles  the  inter- 
nuclear  interaction  between  the  protons.   This  is 
equivalent  to  the  method  of  JS  in  which  the  inter- 
nuclear  potential  is  included  in  the  first  Born 
transition  amplitude.   Therefore,  we  can  interpret 
that  the  introduction  of  the  internuclear  inter- 
action into  the  first  Born  transition  amplitude  has 
the  effect  of  partially  accounting  for  the  nonortho- 
gonality  of  the  initial  and  final  suites  in  the  p 
+  H(ls)-H(ls)+/>  reaction  at  intermediate  and 
large  R.    However,  this  similarity  cimio(  be 
generalized  to  ion-atom  collisions  of  arbitrary 
ZA  and  ZB.   The  large  R  limit  of  hAA  is  Z  S.'R 
instead  of  the  internuclear  interaction  ZAZB/R. 
This  partially  explains  why  the  straightforward 
generalization  of  the  .13  method  to  ion-atom  col- 
lisions by  including  a  full  internuclear  interaction 
results  in  unrealistic  capturo  cross  sections. 
Incidentally,  the  large-fl  limit  of  !iAA  has  also  been 
introduced  recently13  in  the  Born  amplitude,  under 
the  assumption  of  almost  complete  screening  of 
the  target  nucleus  charge  by  the  passive  elec- 
trons.   This  assumption  is  not  valid  for  the  cap- 
ture of  K"-shell  electrons.    It  is  better  to  interpret 
ZJR  as  an  approximation  of  the  nonorthogonality 
contribution  to  the  Born  amplitude  for  electron 
capture  and  has  no  relation  with  the  internuclear 
potential. 

It  is  not  difficult  to  understand  why  the  JS  or 
the  Born  method  of  Ref.  15  usually  gives  better 
absolute  total  capture  cross  section  than  the  OBK 
approximation.    In  Fig.  1,  hAA  is  well  approxi- 
mated by  its  large-i?  limit  -ZB  R  for  R  near  or 
greater  than  the  AT-shell  radius.  Thus,  if  the 
total  electron  capture  comes  primarily  from 
large  impact  parameter  p,  such  pZA  >  1,  then 
the  JS  or  the  Born  method  of  Ref.  15  will  give 
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FIG.  2.    Electron-capture  cross  sections  from  the  K 
shells  of  carbon  atoms  by  fas;  protons.   The  values  are 
the  total  capture  cross  sections  per  targe',  atom,  in- 
cluding capture  to  the  edited  state  of  hydrogen  atoms. 
The  solid  curve  is  the  result  of  the  present  calculation. 
Experimental  data  are  from  Rodbro  et  al  .,   Ref.  33. 
Also  sho^-n  are  the  values  of  V/VK,  the  ratio  of  :he 
projectile  velocity  V  to  the  characteristic  A'-shell  or- 
bital velocity  of  the  target  atom,  defined  by  V K  ■  »  11  r, 
where  I K  i3  the  A'-shell  ionization  energy. 


PROTON  Ei\E*GY  (MeV) 
FIG.  3.   Same  as  in  Fig.  2,  except  for  nitrogen 
atoms.    Experimental  data:   *.  from  R<Sdhro  tt  al ., 
Rcf.  33:  J,  from  Cocke  et  al  ..  Hef.  32. 


erative  solution  for  dfl(+*>)  is  then  given  by  Eq. 
(12).    Depending  upon  the  systems,  usually  two 
or  three  iterations  are  enough  for  desirable  ac- 
curacy.   In  solving  Eqs.  [8),  we  use  experimental 
X"-shell  ionization  energy  for  eA  and  ~Z\'2  tor 
iB.   By  choosing  €x  and  ZA  separately,  the  uni- 
tarity  condition  is  not  imposed  in  the  calculation. 
This  choice  of  tA  is  desirable  because  the  capture 
probability,  as  given  by  its  first-order  solution 
Eq.  (12),  is  dominated  by  the  oscillator/  function 
e'*"'  in  the  integrand,  as  well  as  the  damped  os- 
cillation in  the  matrix  elements  of  -Z3/rg  —hAA. 
This  explains  why  the  ODK  approximation  (ob- 
tained by  letting  /iXA  =0)  usually  predicts  correct 
energy  dependence  for  the  total  capture  cross 
sections,  even,  though  the  absolute  values  are 
often  wrong. 

The  calculated  total  capture  cross  sections  from 
the  K  shells  of  C,  N,  0,  Ne,  and  Ar  atoms  by 
protons  are  displayed  in  Figs.  2-6.    They  are  the 
total  capture  cross  sections  per  target  atom,  in- 
cluding capture  to  the  excited  states  of  the  pro- 
jectile.   The  theoretical  values  shown  in  the  fig- 
ures are  obtained  from  the  calculated  ls-ls  val- 
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FIG,  4.   Same  as  in  Fig.  2  except  for  oxygen  atoms. 
Experimental  data  from  Cocke  et  al  .,  Bet.  32. 
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FIG.  5.  Same  as  in  Fig.  2  except  for  neon  atoms. 
Experimental  data:  ♦,  from  Rodbro  it  al .,  Eef.  33; 
4,  Cocke  et  al .,  Ref.  32. 


C,  N,  and  O,  atoms,  the  experimental  data  are 
obtained  from  measuring  capture  in  CH.,,  N2I 
and  O,  gases.    The  experimental  A'-shell  capture 
cross  sections  are  not  expected  to  change  much 
by  any  molecular  binding  effect. 

It  can  be  seen  from  Figs.  2-6  that  the  calcu- 
lated values  are  generally  in  good  accord  with 
experimental  data.    In  Fig.  6,  the  results  of  the 
OBK  approximation,  the  Born  method  of  Omidvar 
et  a/.,15  and  the  continuum  distortion-wave  method 
of  Belie  and  McCarrotl11  are  also  shown  for  com- 
parison.   The  OBK  predictions  shown  in  Fig.  6 
are  about  three  times  too  large  when  compared 
with  experimental  data.   The  Born  method  of 
Omidvar  et  if."  predicts  cross  sections  in  rea- 
sonable agreement  with  data  at  higher  energies 
but  the  predicted  energy  dependence  differs  from 
the  experimental  data.   The  continuum  distorted- 
wave  method  of  Belie  and  McCarroll11  also  pre- 
dicts cross  sections  in  excellent  agreement  with 
experimental  data  at  the  high-energy  side,15  but 
the  energy  dependence  at  the  low-energy  side  is 
also  incorrect. 


ues  by  multiplying  1.2,  corresponding  to  the  high 
velocity  1,V  scaling.10    Experimental  data  shown 
on  these  figures  are  from  Macdonald  et  al.,n 
Cocke  et  nf.,'2  and  from  Rridbro  el  al.n    For 
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FIG.  6.    Same  as  in  Fig.  2  except  for  argon  atoms. 
Other  theoretical  results:    short-dashed  lines,  the 
Bom  tC)  method  of  Ref.  15:  dash-dotted  lines,  the  OBK 
results  of  Ref.  15.    Long-Jasiied  lines,  continuous  riis- 
toriod-*ave  iCD'.V"  results  of  Ref.  M.    Fxperimental 
data  are  from  Mncdonald  el  al.,  Ref.  31. 


V.   DISCUSSION 

From  the  results  of  Figs.  2-6,  it  is  clear  that 
the  simple  two-state  expansion  method  is  capable 
of  predicting  capture  cross  sections  in  reasonable 
agreement  with  experimental  data.    However, 
further  improvement  of  the  model  is  possible. 
In  the  following  we  discuss  the  limitation  of  the 
present  method  and  possible  further  improvement. 

A.   Alomic  model 

In  Eqs.  (1)  and  (2),  we  use  the  active-electron 
approximation  by  disregarding  the  effects  of 
passive  electrons.    It  is  possible  to  formulate 
a  many-electron  theory  of  electron  capture  based 
upon  the  Bates  formulation.    In  fact,  such  a  theory 
lias  been  written  explicitly  by  Msezane36  recently 
for  the  two-electron  systems.    However,  the  com- 
plexity of  such  a  theory  for  general  .V-electron 
problem  will  make  such  a  formulation  impractical 
in  view  of  the  numerical  difficulties. 

Improvement  in  the  atomic  model  within  the 
independent-electron  approximation  can  be  pro- 
ceeded by  using  a  more  realistic  potential  V{rA) 
for  the  target  atom.    For  example,  the  Green- 
Sellin-Zaclior  (G5Z)  potential  of  Green  et  al." 
can  be  introduced  into  the  Hamiltonian  (2).18  These 
potentials  predict  the  K-shell  ionization  energy 
"accurately.    We  can  thus  use  the  eigenstates  and 
eigenenergies  generated  from  this  potential  in 
the  expansion  ;4),  thus  preserving  the  umtarity 
relation  in  the  coupled  Eqs.  (6)  and  (8).    It  is  hoped 
that  the  choice  of  the  more  realistic  potential  will 
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improve  the  computed  cross  sections  in  the  region 
where  the  cross  section  peaks.    However,  it  is 
not  expected  that  the  improvement  in  the  atomic 
model  alone  will  make  the  theoretical  calculations 
agree  with  experimental  data  over  the  entire  en- 
ergy range  considered.    The  convergence  of  the 
truncated  atomic  expansion  has  to  be  investigated 
too. 

B.  Scattering  model 

To  study  the  limitation  of  the  two-state  atomic 
expansion  method,  we  examine  the  well-studied 
simple  reaction />+H(ls)-H(ls)+p.    At  the  low- 
velocity  limit,  the  potential  curves  of  the  quasi- 
molecule  BL*  are  exactly  known.   These  potential 
curves  describe  the  distortion  of  the  atomic  elec- 
tron wave  function  by  the  projectile  in  the  adia- 
batic  limit.    By  comparing  the  potential  curves 
calculated  by  the  two-state  atomic  expansion  with 
the  exact  H?*  potential  curves,"  we  can  conclude 
that  the  two-state  representation  is  adequate  for 
R  5  1.0,  but  not  smaller  R.   Therefore,  we  can 
expect  the  two-state  atomic  expansion  method 
adequate  for  describing  the  collision  />  +  H(ls) 
-H{ls)+p  at  impact  parameters  p*  1.0,  but  not 
at  smaller  impact  parameters.    If  the  total  capture 
cross  section  comes  primarily  from  the  impact 
parameters  p>  1.0,  then  the  total  capture  cross 
section  obtained  from  the  two-scale  atomic  ex- 
pansion will  be  adequate.    This  occurs  at  the 
intermediate  energy  region  where  the  projectile 
velocity  nearly  matches  the  orbital  velocity  of  the 
target  electron.    As  the  velocity  of  the  projectile 
increases,  the  capture  has  to  occur  at  smaller 


TABLE  I.  Comparison  of  the  two-state  calculations1 
and  the  pseudostate  calculations  b  for  the  total  capture 
cross  sections  for  p  +H(ls)  — HdsJ  +/>  reactions.  The 
cross  sections  are  given  in  cm'.  A  (-B)  =A  x  10     . 


Energy  fceV) 

Two-state  * 

Pseudostate  b 

4 

1.15(-15)c 

1.13{-15) 

10 

7.79(-16)  c 

7.77<-16) 

15 

5.60  (-15) 

5.811-16) 

20 

4.18(-16)  c 

4.14  (-16) 

25 

2.76  (-IS) 

2.93(-16) 

40 

1.51  (-16)  c 

1.13  (-16) 

GO 

4.95 (-17)  c 

4.20  (-17) 

10O 

1.012(-17) 

8.89  (-18) 

300 

1.711(-19) 

,      8.51  (-20) 

1000 

1.12  (-22) 

2. 53  (-22) 

'Two-state  calculations  from  McCarroll,  Ref.  41. 
b  Pseudostate  calculations  from  Cheshire  a  al  ..  Ref. 


c  interpolated  from  3ef.  41. 


Impact  parameters  for  the  projectile  to  pick  up 
electrons  close  to  the  target  nucleus,  then  the 
two-state  atomic  expansion  becomes  inadequate.10 
Within  the  method  of  Bates,  the  charge  exchange 
£  +  H(ls)  — H(ls)+/>  has  been  studied  by  the  multi- 
state  atomic  expansion  method11  by  using  the 
Sturmian  basis  set"  and  by  the  pseudostate  meth- 
od/1   In  the  multistate  expansion  method  of  Ref. 
41,  excited  hydrogenic  orbitals  are  used  in  the 
expansion  of  Eq.  (3).    It  was  found  that  the  elec- 
tron-transfer cross  sections  are  not  changed 
.  substantially  by  the  inclusion  of  the  excited  states. 
However,  this  does  not  imply  that  the  two-state 
calculation  has  converged  in  all  the  cases  studied. 
It  actually  happens  that  the  excited  states  included 
in  the  expansion  are  not  important  for  this  par- 
ticular reaction.    This  can  be  easily  understood 
from  the  discussion  in  the  previous  paragraph. 
It  was  shown  there  that  the  inadequacy  of  the  two- 
state  atomic  expansionoccurs  at  small  R  *  1.0 
where  the  electronic  motion  cannot  be  represented 
by  the  excited-state  wave  functions  of  the  target 
or  the  projectile  because  of  the  diffuse  nature  of 
these  functions,  but  can  only  be  represented  by 
the  continuum  functions.   The  Sturmian  basis  set 
and  the  pseudostates  are  all  chosen  in  the  hope 
that  the  continuum  states  are  thus  partially  ac- 
counted for.    In  Table  I,  we  compare  the  two- 
state  calculation  of  McCarroll"*4  and  the  pseudo- 
state  calculation  of  Cheshire  el  tiL^  for  the  re- 
action p  i-H(ls)-H(ls)*/>.    We  can  see  the  two- 
state  calculations  are  quite  adequate  for  E^  *  100 
keV,  but  as  Et  increases,  the  two-state  calcu- 
lations overestimate  the  capture  cross  sections 
by  a  factor  of  2  as  the  contributions  of  capture 
from  small  impact  parameters  to  the  total  cross 
section  increase. 

From  Table  I  and  the  discussion  above,  it  be- 
comes clear  that  the  two-state  approximation  is 
best  in  the  energy  region  where  vp  ==  <:it.    The 
method  becomes  inadequate  as  the  projectile  en- 
ergy increases,  eventually  reducing  to  the  OBK 
approximation  at  extremely  high  energies.    It  is 
interesting  to  mention  that  this  implies  all  the 
first  Born  approximations  for  electron  transfers 
are  inadequate,  even  at  high  energies.    This  is 
not  inconsistent  with  the  conclusion  of  Drisko" 
that  the  second  Born  term  is  more  important  than 
the  first  Born  term  in  the  extreme  limit  of  high 
energies. 

By  examining  the  results  of  our  calculations 
in  Figs.  2-6,  our  values  at  the  high-energy  side 
are  about  a  factor  of  2  higher  than  experimental 
data.    Thus  one  might  speculate  that  the  continuum 
states  are  also  very  important  in  our  calculations. 
At  this  moment  we  tend  to  believe  this  is  not  the 
case.    The  discrepancy  probably  can  be  reduced 
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by  including  a  lew  more  atomic  states  of  the  tar- 
get atom  into  expansion  (3).    It  is  noted  that  some 
excited  orbitals  of  the  target  atoms  have  radii 
smaller  or  comparable  to  the  radius  of  the  Is 
orbital  of  the  hydrogen  atom.    The  restriction  of 
the  two-state  atomic  expansion  with  basis  functions 
differing  substantially  in  the  size  of  orbitals  might 
have  forced  those  amplitudes  which  would  have 
otherwise  ended  up  in  the  direct  excitation  channels 
into  the  electron-capture  channel.    The  validity 
of  this  speculation  has  to  be  substantiated  by  actual 
calculations. 

In  summary,  we  applied  the  two-state  atomic 
expansion  method  to  compute  the  electron-capture 
cross  sections  of  C,  N,  0,  Ne,  and  Ar  atoms. 
Comparisons  of  this  method  with  other  first- 
order  Born  methods  are  made  to  elucidate  the 
region  of  validity  of  these  methods.   The  limitation 
and  possible  further  improvement  of  the  present 


model  is  also  discussed, 
Sole  added  in  proof.   The  revised  experimental 

electron  capture  cross  sections  for  protons  on 
carbon  atoms  at  low  energies,  in  units  of  10"18 
cma,  are  0.81  iO. OS  at  400  keV,  0.88  ±0.08  at  300 
keV,  and  0.8  ±0.08  at  250  keV  of  proton  energus 
(  J.  R.  Macdonald,  private  communication).    These 
revised  values  are  in  good  agreement  with  our 
calculations  in  Fig.  2. 
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ABSTRACT 

The  two  state,  two  center  atomic  expansion  method  of  Bates  is 
applied  within  the  independent  electron  approximation  to  charge  trans- 
fer processes  involving  raultielectron  atoms.   Usage  of  a  realistic  po- 
tential enabled  a  description  of  capture  from  both  inner  and  outer 
shells  of  multielectron  targets  to  be  given.   The  theory  is  expected 
to  be  valid  for  projectile  velocities  near  the  characteristic  orbital 
velocity  of  the  active  electron. 

Comparison  is  made  with  an  earlier  work  in  which  a  screened  hydro- 
genic  model  was  employed  to  describe  the  transfer  of  electrons  from 
the  K  shell  of  multielectron  targets  to  the  K  shell  of  bare  projectiles. 
It  was  concluded  that  the  simple  hydrogenic  model  could  be  used  for 
high  energy,  asymmetric  collision  systems. 

This  is  the  first  effort  to  describe  capture  from  outer  shells  of 
multielectron  targets  in  which  a  realistic  atomic  model  is  used.   The 
method  is  applied  to  electron  transfer  from  the  outer  shells  of  neon, 
argon,  and  krypton  atoms  to  the  K  shell  of  hydrogen.   Results  of  the 
calculations  are  compared  with  experimental  data  and  further  improve- 
ments in  the  theory  are  discussed. 


